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 : Sélectionner tout - Visualiser dans une fenêtre à part
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