Bonjourà tous,

Dans le cadre de mon travail, j'ai pour but d'utiliser un "robot" sur un site HTML où j'ai différentes étapes à valider. Tout se passe bien jusqu'à ce que je clique sur un lien qui m'ouvre une nouvelle page HTML où je dois renseigner des données sauf que dans mon code VBA (en gras) celui ci ne reconnait pas les zones de texte car je pense qu'il pointe toujours sur la première page HTML.
Ma question est donc comment me placer sur cette nouvelle page pour qu'il puisse reconnaitre les zones à remplir (j'ai essayé en ouvrant l'URL de la deuxième page HTML mais cela ne fonctionne pas, il me faut une autre solution).
J'espère avoir été assez clair. Merci à tous.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub connexion()

Dim IE As Object


Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.navigate "mon site"

While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
Wend

IE.document.all("accesDirectGroupementUBean.cape").Value = "01180205"

IE.document.all("accesDirectGroupement").Click


While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
Wend


IE.document.Links(10).Click

While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
Wend


IE.document.Links(14).Click

While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
Wend


IE.document.all("dateEffetUBean.dateEffet").Value = "01012015"

IE.document.all("cape").Value = Cells(2, 1)

IE.document.all("valider").Click

While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
Wend

End Sub