Discussion :

[ndria34]

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

[Marc-L]

Bonjour,

vu la présentation légère et comme on ne peut accéder au site,

reste le tutoriel Interaction avec Internet Explorer via VBA Excel …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[ndria34]

Up

Bonjour à tous,
Toujours le même problème, je n'ai jamais trouvé de solutions et voilà que ça revient sur le tapis dans mon boulot. Si quelqu'un pouvait m'aider svp, ça serait cool

[Marc-L]

[ndria34]

Bonjour,

J'ai quasiment réussi à résoudre mon problème. Ma macro fonctionne quand je la lance en "pas à pas détaillé" mais pas quand je la lance normalement (j'ai une erreur d’exécution '438') mais je n'arrive pas à comprendre pourquoi. Si quelqu'un a une petite idée svp ? Ci dessous mon code VBA :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Sub WaitIE(IE As Object)
While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy = True
    DoEvents
    Wend
End Sub
 
Sub WaitIE2(IE2 As Object)
While IE2.readyState <> READYSTATE_COMPLETE Or IE2.Busy = True
    DoEvents
    Wend
End Sub
 
Sub connexion()
 
Dim IE As Object
Dim IE2 As Object
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = True
IE.navigate "http://sinistres-climats-gsu-pp.ra1.intra.groupama.fr/FRS_FSin/secours2EvtIndivFrs.do?FRS_Session_Id=YyvGr125BPL9r2ZtR0TmRhrhJ2Hg6MGQSVxsQj1DcCd8vQLzdwmy!1621211841&FrsIdPage=EVTINDIVSECOURS&FrsIdPage=EVTINDIVSECOURS&FRS_Session_Id=YyvGr125BPL9r2ZtR0TmRhrhJ2Hg6MGQSVxsQj1DcCd8vQLzdwmy!1621211841&valider=Valider&FrsLogin=SECOURS&FrsIdBOSigma=GSU"
 
WaitIE IE
 
IE.document.all("dasi4Nosi1Recherche").Value = "2016" & Range("e3")
IE.document.all("rechercheSinistre").Click
 
WaitIE IE
 
IE.document.Links(6).Click
 
WaitIE IE
 
IE.document.all("1").Click
 
WaitIE IE
 
IE.document.all("listDesignationBean[0].checked").Click
 
WaitIE IE
 
IE.document.all("designExpert").Click
 
WaitIE IE
 
Set IE2 = trouver_ie_par_titre("FRS - Liste des experts missionnables")
WaitIE2 IE2
 
IE2.document.all("critereRecherche.nomep").Value = Range("c3")
IE2.document.all("Rechercher").Click
 
WaitIE2 IE2
 
IE2.document.all("intervenantRecherche[0].indIntervSel").Click
 
WaitIE2 IE2
 
IE2.document.all("ValiderRecherche").Click
 
End Sub
 
Function trouver_ie_par_titre(titre As String) As Object
    Dim retour As Object
    Dim IE As New InternetExplorer
    Dim winShell As New ShellWindows
    Dim maPageHtml As HTMLDocument
 
    On Error Resume Next
 
    For Each IE In winShell
        If IE.LocationURL <> "" Then
            Set maPageHtml = IE.document
         If maPageHtml.Title = titre Then
         Set retour = IE
         End If
 
 
            Set maPageHtml = Nothing
        End If
    Next IE
    Set trouver_ie_par_titre = retour
End Function

[Marc-L]

‼

Par contre pour celui se trouvant devant son code, rien qu'avec la ligne surlignée en erreur
- n'étant même pas indiquée ici (cf règles du forum) alors faire appel à une voyante ! -
et le message d'erreur lui-même il doit alors facilement comprendre pourquoi !