Automatiser extraction données web/excel VBA

Fermé
Lucy - 3 juil. 2012 à 12:01
 Meia - 28 févr. 2014 à 14:08
Bonjour,


Voici mon problème : je copie des pages web via la fonction "Données/A partir du web" de Excel, ça marche très bien sauf que j'ai des centaines de pages à extraire de la même manière. Je cherche donc un moyen d'automatiser ce processus, d'autant plus que toutes les URL sont identiques à un chiffre près! (c'est plusieurs pages d'un même site)
Je serai vraiment reconnaissante si quelqu'un pouvait m'apporter son aide.

8 réponses

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié par eriiic le 3/07/2012 à 12:19
Bonjour,

Une macro réalisée il y qcq temps...
Le site ayant évolué depuis, les mises à jour ne fonctionnent plus sur l'exemple.

Modifie la requête web de Feuil1, les adresses web (générées par formule dans ton cas) et les titres des champs désirés en Feuil2 pour tester sur ton site.
Les champs récupérés sont dans le code à partir de :
' mettre à jour les données du site (dans feuil2) à partir des données de la requête 
ws.Cells(i, 3) = [B2]
....

Si pb d'adaptation fourni un fichier exemple avec ta requête et 2-3 adresses web.
cjoint.com et coller ici le lien fourni.

https://www.cjoint.com/?BGdmjnMV4NP

eric
0