Sitemaps - récupéré les liens d'un site

Bonjour,

J'ai été au plus simple ...

Ma question reste :

Steelson a écrit :

Tu me diras ce que tu vas en tirer !!

Bonjour,

Je viens de le testé, le fichier est super.

merci

Bonjour,

sur le site

Je n'arrive pas a extraire , j'ai aucune aucune donné.

Je joint le fichier en pièce jointe

Steelson a écrit :

Ma question reste :

Steelson a écrit :

Tu me diras ce que tu vas en tirer !!

Bonjour,

Je t'avais répondu dans le message d'avant en disant que le fichier me convenait parfaitement pour ce site.

Dans les premier ligne du fichier, on retrouve deux fois le

mais les lignes que j'avais besoin sont a la fin, j'ai complete cette macro par un filtre elaborer pour recuperer les dernier lignes.

dans ta question est ce que tu souhaite peut etre savoir que que je fais de ces donné, c'est ca ? ou tu parlais juste pour le fichier.

Honnêtement, ton aide ma vraiment bien aidé , comme ce forum, je ne sais pas comment te remercier.

Pour dernier message, je n'ai pas mit dans le bon post ( désole ) , je le reposte dans le bon post.

Bonjour,

en utilsant le script du fichier ravesburger quan je met trop de page j'ai l'erreur :

ERREUR d'exécution '6'

Dépassement de capacité

Que cela veut dire? et comment faire pour augmenté la capacité?

Bonjour,

Partout où tu trouves Integer, tu le remplaces par Long.

Bonjour,

Sur le site ebay , je n'arrive pas a recupere les lien des annonces

POuvez vous m'aider, ci joint le fichier de recherche

Bonjour,

avec

.getElementsByTagName("a")

Option Explicit

Sub OnYVa()
Dim i%, sw As Worksheet

    ' effacement
    Range("A1").CurrentRegion.Offset(2, 0).ClearContents

    ' recherche des courses
    rechercheLiens Range("A2").Value, "/www.ebay.fr/itm", "xxx"
    MsgBox "fin de recherche des liens !"

End Sub

Sub rechercheLiens(site As String, parametre As String, sauf As String)
Dim lig%, page As New HTMLDocument, lien As Object, url As String

    ' création de l'objet page avec comme contenu le site
    page.body.innerHTML = pageHTML(site)

    ' recherche des liens contenant un mot-clé
    lig = Range("A" & Rows.Count).End(xlUp).Row + 1 ' 1ère ligne disponible
    For Each lien In page.getElementsByTagName("a")
        url = lien.getAttribute("href")
        If url Like "*" & parametre & "*" And Not url Like "*" & sauf & "*" Then
            Range("A" & lig) = Replace(url, "about:", "http://www.geny.com")
            lig = lig + 1
        End If
    Next lien

    ' suppression des doublons
    ActiveSheet.Range("$A$1:$A$" & lig).RemoveDuplicates Columns:=1, Header:=xlYes
    Columns("A:A").EntireColumn.AutoFit

End Sub

Function pageHTML(site As String) As String
    With CreateObject("WINHTTP.WinHTTPRequest.5.1")
        .Open "GET", site, False
        .send
        pageHTML = .responseText
    End With
End Function

Bonjour,

J'ai essayer le fichier, il ne fonctionne pas et j'ai besoin de récupéré les lien des annonce sur les pages 1,2,3, ... ( comme l'autre fichier )

jeromechant a écrit :

il ne fonctionne pas

Bonjour,

je viens de ré-essayer ... pas d'erreur et il donne bien les liens.

Sans plus d'information,s de ta part je ne peux rien faire.

Bonjour,

Je suis à l’étranger, j'ai mit mon vpn en marche avec une adresse en ip en france et ca fonctionne maintenant.

c'est bizarre.

est ce qu'il est possible de faire comme l'autre fichier Sitemap, pour qu'il récupéré les lien sur les pages suivant automatiquement ( pages 1, 2, 3, .... )

merci d'avance

Ce n'est pas bizarre, ou bien ebay teste le n° d'IP, ou bien tu es dans un pays qui bloque l'accès à ebay.

Bonjour,

Est ce qu'il est possible de faire comme l'autre fichier Sitemap, pour qu'il récupéré les lien sur les pages suivant automatiquement ( pages 1, 2, 3, .... )?

Merci d'avance

Je n'ai pas pu récupérer en auto le nombre de pages, donc indique en haut à droite le nombre de ce que tu souhaites récupérer.
C'est le même fichier que l'autre post !

Super Merci