Boursorama

Bonjour,

Je cherche à imprimer à l'aide d'une macro des graphes de cours d'actions sur le site boursorama. Avec le code ci dessous j'arrive à acceder à la page mais je n'arrive pas à trouver l'astuce pour reussir à cliquer sur "Graphique" puis "Graphique Intraday"..

Quelqu'un pour m'aider?

Merci


Sub RechercheVBAExcel()
'Déclaration des variables
Dim ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputBoursoramaZoneTexte As HTMLInputElement
Dim FormBoursoramaCherche As HTMLFormElement
Dim Actualite As HTMLAnchorElement
'Dim htmlTabElement() As IHTMLElement
Dim InputBoursoramaBouton As HTMLInputElement
'Chargement d'une page Web Google
ie.navigate "www.boursorama.com"
'Affichage de la fenêtre IE
ie.Visible = True
'On attend le chargement complet de la page
WaitIE ie
'On pointe le membre Document
Set IEDoc = ie.document
'On pointe notre Zone de texte
'On pointe notre Zone de texte
Set InputBoursoramaZoneTexte = IEDoc.all("q")
'On définit le texte que l'on souhaite placer à l'intérieur
InputBoursoramaZoneTexte.Value = "Norbert Dentressangle"
'On pointe notre bouton
'On pointe la Form qui contient Zone de Texte + Bouton (entre autres)
Set FormBoursoramaCherche = IEDoc.forms("search-form")
'On exécute l'action Submit de la Form
FormBoursoramaCherche.submit
'Set FormBoursoramaCherche = IEDoc.class("item")
'On attend la fin de la recherche
WaitIE ie
'[...] Suite du code
'Set Actualite = IEDoc.anchors("aclink_" & yNumActu)
'Set Actualite = IEDoc.all("item")
'Set Actualite = IEDoc.links("aclink_" & yNumActu)
'On exécute le lien
'Actualite.Click
'On libère les variables
Set ie = Nothing
Set IEDoc = Nothing
End Sub