Récupération du contenu de liens html

Résolu/Fermé
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023 - 6 mars 2023 à 15:16
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023 - 7 mars 2023 à 14:54

Bonjour à tous,

Je souhaite récupérer le contenu de nombreux liens html qui sont dans une colonne d'un fichier Excel.
Chaque cellule de cette colonne contient un lien du type http:///.../fichier.htm 

Comment récupérer automatiquement les contenus de ces différents liens dans un répertoire donné ?

Merci d'avance.
Marc95

6 réponses

yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 467
6 mars 2023 à 16:34

bonjour,

voici un code qui crée un fichier à partir d'un lien (en A1).  Tu dois ajouter "microsoft xml v6.0" dans les références de ton projet.

Il suffit de l'appliquer sur chacune des cellules de ta colonne.

Dim Page As New MSXML2.ServerXMLHTTP60, fn As String
fn = ThisWorkbook.Path + "\" + "yg1.html"
Call Page.Open("GET", [a1], False)
Page.Send
Open fn For Output As #1
Print #1, Page.responseText
Close #1
0
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023
6 mars 2023 à 17:57

Merci pour le retour.

Je regarde si j'arrive à utiliser VBA à partir de Visual Studio.

0
yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 467
6 mars 2023 à 19:36

VBA est à utiliser dans Excel.

0
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023
6 mars 2023 à 22:15

J'ai bien utilisé VBA avec votre macro pour mon fichier Excel.

J'obtiens un pavé bleue sur "Page As New MSXML2.ServerXMLHTTP60" de la macro.

Avec le message suivant  : "Erreur de compilation : Type défini par l'utilisateur non défini".

0
yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 467
7 mars 2023 à 09:58

Tu dois ajouter "microsoft xml v6.0" dans les références de ton projet.

0
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023
7 mars 2023 à 10:29

Merci beaucoup. Cela fonctionne !. J'avais bien coché initialement pour avoir "microsoft xml v6.0" mais cela n'avait visiblement pas été pris en compte. 

0
yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 467
7 mars 2023 à 12:13

Peux-tu alors marquer la discussion comme résolue?

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023
7 mars 2023 à 14:35

Oui. Comment clôturer ma demande comme résolue ?

0
yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 467
7 mars 2023 à 14:48

Via les ... en dessous de la question initiale.

0
mbern_95 Messages postés 6 Date d'inscription lundi 6 mars 2023 Statut Membre Dernière intervention 7 mars 2023
7 mars 2023 à 14:54

Encore merci. Cela a été un peu laborieux de mon côté mais c'est bien noté pour les prochaines fois.

0