Executer un javascript sur une page web
Bonjour,
C'est mon premier post sur le forum donc bonjour à tous!
Je souhaite exécuter un Javascript sur une page web en utilisant VBA.
Le site est le suivant : http://jsfiddle.net/gh/get/jquery/1....s/chart-print/
J'aimerais imprimer le graphique automatiquement, le graphique seul comme lorsque l'on clique sur le bouton "Print Chart". Cependant je n'arrive pas à cliquer sur le boutton en le sélectionnant ou à lancer directement le script.
L'objet chart est un highchart, on peut trouver sa documentation ici: http://api.highcharts.com/highcharts#Chart.print()
Voici mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
Sub test()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
IE.navigate "http://jsfiddle.net/gh/get/jquery/1.7.2/highslide-software/highcharts.com/tree/master/samples/highcharts/members/chart-print/"
IE.Visible = True
Application.Wait Now + TimeValue("0:00:03")
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set IEDoc = IE.document
Call IEDoc.parentWindow.execScript("Print()", "JavaScript")
IE.Quit
end sub |
Là j'arrive à imprimer la page, mais pas à reproduire ce que ça donne lorsque l'on clique sur le bouton d'impression du graph.
Merci pour votre aide,
Seka