Récupération du contenu de liens html

Résolu
mbern_95 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
mbern_95 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -

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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

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   Statut Membre Dernière intervention  
 

Merci pour le retour.

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

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

VBA est à utiliser dans Excel.

0
mbern_95 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 

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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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   Statut Membre Dernière intervention  
 

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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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   Statut Membre Dernière intervention  
 

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

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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

0
mbern_95 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 

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

0