Extraction pages web

[JORDAN]

Bonsoir le Forum,

j'essaie d'extraire des pages web mais ma macro ne renvoie rien dans la feuil3
la feuil1 colonne 3 contient une partie de l'adresse web, l'autre partie est dans la macro

avez vous une idée d'où proviennent mes erreurs svp
par avance merci

 

[Eric 45]

bonsoir à toutes et tous
Bonsoir Jordan

Tu pourrais essayer ceci :

 Dim objBK As Workbook
 Dim objQT As QueryTable



Set objBK = Workbooks(ThisWorkbook.Name)

AdrURL = "https://www.118000.fr/v_gradignan_33/c_" & Worksheets("Feuil1").Cells(i, 3)

     With objBK.Worksheets(3)
         Set objQT = .QueryTables.Add( _
         Connection:="URL;" & AdrURL, _
        Destination:=.Cells(DerLigne2, 1))
     End With
    
     With objQT
         .Name = "c_" & Page & "_1"
.
.
.
.
.
.
.
     End With
         objQT.Refresh BackgroundQuery:=False

A te lire
Eric

 

[JORDAN]

Bonsoir le Forum, Eric

Eric, merci pour ton aide
j ai testé avec tes modifs mais c'est toujours pareil, aucun résultat

si je fais la manip à la mano j'ai ce msg d erreur, peut être que la macro s'arrête à cause de ça :

merci pour votre aide précieuse

 

[Eric 45]

Re

Mon code fonctionne sur d'autres sites. Je ne comprend pas ce qui se passe sur le tien

Eric

 

[David Aubert]

Bonjour à tous,
Désolé mais je vais devoir fermer ce fil de discussions car il n’est pas conforme à notre charte.
Je viens d’aller voir le site sur lequel tu souhaites extraire des données et les CGU précisent : « Le Site est limité à une utilisation manuelle ».
Rappel du point 8 de la charte :

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

Merci de poursuivre en off par email ou via les conversations si vous le souhaitez.
Bonne journée
David