Discussion :

[mqsi]

Bonjour à tous,

Pourriez-vous me dire comment sous VB6 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

[mqsi]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 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

[SilkyRoad]

bonjour

Pourriez-vous me dire comment sous VB6 on peut parcourir les liens d'une page telécharger ds Webbrowser et garder leurs URL ds un tableau Excel,

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim x As Integer
Dim maPageHtml As HTMLDocument
 
Set maPageHtml = WebBrowser1.Document
 
    For x = 0 To maPageHtml.links.Length - 1
       ObjFeuille.Cells(x + 1, 1) = maPageHtml.links(x)
    Next

michel

[mqsi]

svp : ObjFeuille ???

[SilkyRoad]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ObjFeuille = Worksheets("Feuil1")

par exemple ...

[Chad.]

Pour plus facile:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim lol As HTMLDocument
Set lol = WebBrowser1.Document
linkz = lol.links
For Each linkz In lol.links
List1.AddItem linkz
Next

[Chad.]

et pour parcourir tous les liens tu pourrais essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for each linkz in lol.links
webbrowser1.navigate linkz
next

si ce n'est pas ce que tu voulais laisse moi savoir