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 ?

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
 
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