Automatiser extraction données web/excel VBA
Lucy
-
Meia -
Meia -
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.
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.
A voir également:
- Extraire des données d'une page web vers excel
- Supprimer une page word - Guide
- Extraire une video youtube - Guide
- Web office - Guide
- Imprimer tableau excel sur une page - Guide
- Trier des données excel - Guide
8 réponses
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 :
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
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