Parcourir les lien d'une page web

mqsi Messages postés 111 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 28 avril 2010 - 8 nov. 2006 à 09:42
mqsi Messages postés 111 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 28 avril 2010 - 8 nov. 2006 à 11:40
Bonjour à tous,

Pourriez-vous me dire comment sous VB on peut parcourir les liens d'une page telécharger ds Webbrowser et garder leurs URL ds un tableau Excel, ces liens sont enregistrer dans un tableau ds le même colone dans la page;J'espère avoir été clair.




Merci d'avance

3 réponses

amigainc Messages postés 20 Date d'inscription lundi 5 janvier 2004 Statut Membre Dernière intervention 7 août 2009 1
8 nov. 2006 à 09:50
For i=0 to WebBrowser1.document.body.links.count-1
    debug.print WebBrowser1.document.body.links(i).href
Next i



Avec cela, ça devrait marcher.
(Pense à remplacer WebBrowser1 par le nom de ton objet WebBrowser)

----------------------
<<< AmigaINC >>>
0
mqsi Messages postés 111 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 28 avril 2010
8 nov. 2006 à 11:04
merci pr l'info ;
j'ai essayé mais ne marche pas ;
0
mqsi Messages postés 111 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 28 avril 2010
8 nov. 2006 à 11:40
voila ce code me permet d'afficher les contenus des tableau ds un msg,si vs avez une idées comment le regler pr le fixer sur un seul colone du tableau:

set maPageHtml = WebBrowser1.Document
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web

For i = 1 To maTable.rows.length 'boucle sur toutes les lignes du tableau
'boucle sur les cellules dans chaque ligne

For j = 1 To maTable.rows(i - 1).cells.length
MsgBox maTable.rows(i - 1).cells(j - 1).innerText
Next j
Next i

<!-- / message -->
0
Rejoignez-nous