Bonjour,
J'ai effectué sur une page web la liste des liens hypertext avec une macro trouvé sur WIKI XLD!!
J'ai donc sur ma feuille excel la liste des liens de la page web.
Mais j'aimerais maintenant lancer un des liens contenu sur cette page web sachant que celui-ci est du type
javascript:hrefsender('main',%20'',%20'Stocks')
afin de récupérer un tableau contenu sur ce lien.
J'ai regardé sur WIKI XLD page 7...je suis bien arrivé à piloter des pages html et lancer la simulation du Click mais je n'y parviens pas avec un lien en javascript?
Merci de votre aide
J'ai effectué sur une page web la liste des liens hypertext avec une macro trouvé sur WIKI XLD!!
Code:
Sub listeLiensPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
IE.navigate '[url]http://www.MaPageWeb.fr'[/url]
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Doc = IE.document
For x = 0 To Doc.links.Length - 1
Cells(x + 1, 1) = Doc.links(x)
Next
End Sub
J'ai donc sur ma feuille excel la liste des liens de la page web.
Mais j'aimerais maintenant lancer un des liens contenu sur cette page web sachant que celui-ci est du type
javascript:hrefsender('main',%20'',%20'Stocks')
afin de récupérer un tableau contenu sur ce lien.
J'ai regardé sur WIKI XLD page 7...je suis bien arrivé à piloter des pages html et lancer la simulation du Click mais je n'y parviens pas avec un lien en javascript?
Merci de votre aide