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
Partager