Piloter page web et lancer lien javascript???

[tarvel]

Bonjour,
J'ai effectué sur une page web la liste des liens hypertext avec une macro trouvé sur WIKI XLD!!

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

 

[MichelXld]

bonjour

cette adaptation déclenche le 27 eme lien hypertexte de la page html

Sub declencherLienPageWeb()
'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 Cible As HTMLAnchorElement
Dim Doc As HTMLDocument

IE.Navigate 'http://www.excel-downloads.com'
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Set Doc = IE.Document
Set Cible = Doc.links(27)
'
Cible.Click
End Sub


je n'ai pas testé avec des liens en javascript


bonne journée
MichelXld

 

[tarvel]

Ca fonctionne bien aussi avec le javascript!!!
Encore une fois...merci bcp MichelXld