Intéraction avec Internet Explorer
Bonjour,
Je travaille chez Renault et je dois mettre au point une macro qui fait en sorte que quand je clique sur un bouton, ça envoie l'utilisateur sur Internet Explorer, qui va sur l'intranet sur un site spécial (jusque là tout est ok) et après la macro qui est executée doit écrire sans que l'utilisateur ait à le faire une information précise et à un endroit précis.
J'ai réussis à envoyé l'utilisateur sur la page de l'intranet, mais je n'arrive pas à écrire dans une case précise !
Quelqu'un pourrait m'éclaircir s'il vous plaît ? :help:
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
|
Private Sub CommandButton1_Click()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
IE.Navigate "http://s0517aos.ecm.rncd.noxiane.net:8080/Reports_QBI_SSRS_OPE/Pages/Report.aspx?ItemPath=%2fReportsIVIZ%2fGMF+World"
IE.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set IEDoc = IE.document
Set InputGoogleZoneTexte = IEDoc.all("ctl31$ctl04$ctl23$txtValue")
InputGoogleZoneTexte.Value = "GSFA-V13-Habillage Intérieur"
SendKeys "{ENTER}"
Set IE = Nothing
Set IEDoc = Nothing
End Sub |