Comment lancer un lien javascript par vba??

Question

Bonjour,
J'essaie de piloter par une macro une page web pour récupérer sur cette page 
un tableau de données.
Comment en vba lancer un lien en javascript du style
javascript:hrefsender('main',%20'',%20'MouvementsDeStocks')
Pour ensuite récupérer sur ce lien le tableau de données.

OneHacker · Answer

Je ne vois que 2 solutions :
- soit tu exploites une DLL de Internet Explorer pour &#233;x&#233;cuter du code Javascript depuis la DLL.
- soit tu cr&#233;er un module mdlJS et tu &#233;cris tout les commandes JavaScript existante, en les interpr&#233;tants en VB

Redman

pegase71 · Answer

J'ai trouvé la réponse sur un autre forum...ça marche nickel de cette façon!!!
par MichelXld

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

OneHacker · Answer

Bravo ! Mais c'est du VB ?

Redman

pegase71 · Answer

VBA ...oui!!

OneHacker · Answer

D'accord mais j'ai du mal a comprendre !

Redman

Comment lancer un lien javascript par vba??

5 réponses

Discussions similaires