Récupération de pages INTERNET sous VBA

Bonjour

Depuis des années, je récupère des données sur INTERNET sous VBA avec EXCEL 2007 puis 2010 avec la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

1210 With BROUILLON.QueryTables.Add(Connection:="URL;" & adressehttp, Destination:=BROUILLON.Range("$A$1")) 1220 .Name = Mid(adressehttp, InStrRev(adressehttp, "/") * 1) 1230 .FieldNames = True 1240 .RowNumbers = False 1250 .FillAdjacentFormulas = False 1260 .PreserveFormatting = True 1270 .RefreshOnFileOpen = False 1280 .BackgroundQuery = True 1290 .RefreshStyle = xlInsertDeleteCells 1300 .SavePassword = False 1310 .SaveData = True 1320 .AdjustColumnWidth = True 1330 .RefreshPeriod = 0 1340 .PreserveColumnInfo = True 1360 .WebSelectionType = xlEntirePage 1380 .WebPreFormattedTextToColumns = True '1 false 1390 .WebConsecutiveDelimitersAsOne = True 1400 .WebSingleBlockTextImport = True 'false 1410 .WebDisableDateRecognition = True 1420 .WebDisableRedirections = False 1430 .Refresh BackgroundQuery:=False 1440 End With

---

adressehttp contient une adresse INTERNET sous la forme http:// etc
BROUILLON est une page de mon fichier EXCEL

Je pouvais récupérer n'importe quelle page INTERNET toutes les semaines pendant des années. Depuis quelques jours je n'ai plus rien dans la page BROUILLON et je n'arrive pas à comprendre pourquoi.
Comment dois-je modifier mon instruction ? ou y a-t-il un autre moyen de récupérer une page INTERNET ?
Merci d'avance

Salut.

Tu as vérifié avec d'autres pages internet? Peut-être la page internet ne sert-elle plus les données de la même façon depuis quelques jours...

Bonjour
Le contenu de la page n'est pas en cause. J'en ai essayé plusieurs. Si j'utilise l'adresse manuellement c'est OK. C'est vraiment la requête qui pose problème.

:salut:
Peut-être que la page a été redirigé vers un autre protocole securisé en https:// :roll:

Je viens de tester sur un https et cela fonctionne (à part le PreservercolumnInfo que j'ai dû commenter, mais ce n'est pas là le problème.

Pourrait-on avoir les adresses que tu utilises?

Par exemple :
http://www.atptour.com/en/rankings/s...nkRange=1-3000

Merci

Ca récupère quelque chose chez moi. Tu n'a donné que le code du bloc de récupération. qu'est-ce qu'il y a avant? As-tu une gestion d'erreur qui pourrait poser problème? As-tu testé en pas-à-pas pour voir si ton code passe bien sur les lignes que tu nous as renseignées?


Résultat de la requête:

Juste avant je renseigne adressehttp et juste après je teste le contenu de BROUILLON. J'ai bien testé pas à pas.
Je ne comprends pas ce que tu récupères (il me manque le code) : si tu cliques sur l'adresse que je t'ai envoyée tu obtiens la liste des 3000 joueurs du classement ATP, celle que je devrais avoir dans BROUILLON.
Je t'envoie le code de la macro mais je ne pense pas que ça puisse t'aider.

En fait après plusieurs essais, il s'avère que la syntaxe VBA n'est pas en cause : je récupère bien des données avec une adresse wikipedia par exemple.
C'est donc mon adresse www.atptour.com qui n'est pas reconnue.
J'ajoute que la moindre erreur de syntaxe dans l'instruction ".QueryTables.Add(Connection ..." provoque un résultat identique : une page blanche ; elle ne plante même pas en erreur.
Reste à comprendre pourquoi et comment les adresses atptour sont interdites ...