Connexion VBA HTML : problème d'intéraction entre 2 pages HTML

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

12/05/2015, 13h58
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
27/10/2016, 13h15
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 :)
27/10/2016, 19h08
Marc-L

http://smileys.sur-la-toile.com/repo...yante-2943.gif

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:

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

21/11/2016, 16h35
Marc-L

http://smileys.sur-la-toile.com/repo...yante-2943.gif ‼

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 !
22/11/2016, 11h17
ndria34

Justement, il ne met aucune ligne particulière en erreur donc je ne sais pas où chercher mais le problème vient à partir de la ligne 49 à mon avis. Et comme message d'erreur il me met : "erreur d’exécution '438' : Propriété ou méthode non gérée par cet objet"

Et Marc-L si c'est pour me répondre à chaque fois comme ça, tu ferais mieux de la fermer stp, merci.
22/11/2016, 12h16
patricktoulon

re
re
Bonjour
déjà c'est mal parti chez moi ton url est invalide
"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"
"

sans pouvoir tester personne ne pourra t'aider
je vois session ID et login dans l'url je suppose donc qu' il faut te loguer et que transmettre tes identifiants serait une folie

conclusion t'es tout seul

a savoir aussi que certain site refuse et ont une protection anti robots (excel ou autre) se qui rend quasi impossible pour un novice d'en créer un et même pour les plus avertis c'est assez difficile
mais vu ton niveau dans ce domaine je pense que l'idée de robotiser devrait laisser le pas a l'apprentissage de ton environnement après tu pourra peut être faire quelques petit essais quand tu aura la métrise de certains paramètres

a moins qu'entre temps Marc reçoive des solutions de sa boule de cristal

A méditer

déjà pour commencer ta sub wait2 utilise une variable "READYSTATE_COMPLETE " qui n'est même pas dimée nul part elle est = a 0 donc ta wait2 fonction que pendant le ie.busy
perso j'utilise les nombre
4 =readystate complete
ensuite attention ie.busy peut bloquer le fonctionnement avec des pages web récentes (toujours en fonctionnement)
Code:

1 2 3 4 5 6 Sub WaitIE2(IE2 As Object) While IE2.readyState <> 4 Or IE2.Busy = True DoEvents Wend End Sub
je te prescris donc par ordonance un traitement radical

buchage 2 fois par jours du tutoriel de QWAZERTY pendant 1 semaine
afin d'en comprendre tout les mots (voir utilisation de Google et d'un dictionnaire )

une visite sera programmer au bout du 5 eme jour voir si les symptômes persistent
22/11/2016, 13h04
ndria34

OK merci pour ta réponse patricktoulon

re
a regarder de plus prêt
je vois une fonction avec Windows shell
j'en conclu donc que ton "designExpert" ouvre une nouvelle fenêtre (IE)

je vois aussi

Code:

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

j'en conclu que cet element porte bien le nom de "1" n'est ce pas !!???

perso ta waitIE et wait IE2 sont identique plombe en une elle sert a rien et change l'argument c'est tout

WaitIE IE2
ou
WaitIE IE

et ta fonction
Code:

1 2 3 4 5 Sub WaitIE(IE As Object) While IE.readyState <> 4 ' Or IE.Busy = True DoEvents Wend End Sub
bref si tu veux bien on va commencer tout doucement pour voir ou ca plante depuis le mois de mai quand même il serait temps d'arriver a un résultat tu crois pas ????

bon on va tester cela dans un fichier vierge allez on commence par le début
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub WaitIE(IE As Object) While IE.readyState <> 4 ' Or IE.Busy = True DoEvents Wend End Sub Sub connexion() Dim IE 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 end sub
dit moi si "dasi4Nosi1Recherche" recois bien les données et le clik" recherche sinistre" fait son effet ??
c'est tout pour le moment dis la voix
t'a 5 minute !!

22/11/2016, 13h47
patricktoulon

re

alors on y est ou pas !!??
22/11/2016, 13h47
ndria34

Oui le début fonctionne bien.
22/11/2016, 13h50
ndria34

Et c'est bien mon designexpert qui ouvre une nouvelle fenêtre html, d'où ma fonction qui me permet de me placer sur celle-ci
22/11/2016, 13h51
patricktoulon

re
bon ajoutaont la prochaine action maintenant
ajoute ceci
Code:

1 2 3 WaitIE IE IE.document.Links(6).Click
t a 2 minute
dépêche je repart a 14.45
22/11/2016, 13h56
ndria34

J'ai une erreur d'exécution '91' : variable objet ou variable de bloc with non définie
22/11/2016, 13h59
ndria34

mais si je remet le "IE.Busy = True" cela fonctionne
22/11/2016, 14h03
patricktoulon

re

et oui j'ai ma petite idée sur ce point

pourrait tu me montrer au moins le code html correspondant a cet élément

porte t il un nom particulier, est il une balise particulière ,a t il un parent identifiable par ses attributs(id,classe etc...) ou tagname
etc...

edit: IMPORTANT!!!!!!! quand tu dis link(6) c'est le 6 eme que tu veux???????

OK on c'est croisés

bon ok pour le busy
on va faire plus vite car c'est un peu lent

teste ca dans le fichier vierge et dis moi la phrase du message

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
28
29
30
Sub WaitIE(IE As Object)
    While IE.readyState <> 4 Or IE.Busy   ' ne remet pas "=true "pas la peine 
        DoEvents
    Wend
End Sub
Sub connexion()
    Dim IE As Object
    Dim IE2 As Object
    On Error GoTo gest_erreur
    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
    erreur = "erreur sur :" & "dasi4Nosi1Recherche"
    IE.document.all("dasi4Nosi1Recherche").Value = "2016" & Range("e3")
    erreur = "erreur sur :" & "rechercheSinistre"
    IE.document.all("rechercheSinistre").Click
    WaitIE IE
    erreur = "erreur sur :" & "link(6)"
    IE.document.Links(6).Click
    WaitIE IE
    erreur = "erreur sur :" & "le all(""i"")"
    IE.document.all("1").Click
    WaitIE IE
    erreur = "erreur sur :" & "listDesignationBean[0].checked"
    IE.document.all("listDesignationBean[0].checked").Click
    Exit Sub
gestion_erreur:
    MsgBox erreur
 end sub

on irra plus vite comme ca
;)

autant pour moi j'en ai oublié une

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
28
29
30
31
32
33
34
35
Sub WaitIE(IE As Object)
    While IE.readyState <> 4 Or IE.Busy
        DoEvents
    Wend
End Sub
Sub connexion()
    Dim IE As Object
    Dim IE2 As Object
    On Error GoTo gest_erreur
    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
    erreur = "erreur sur :" & "dasi4Nosi1Recherche"
    IE.document.all("dasi4Nosi1Recherche").Value = "2016" & Range("e3")
    erreur = "erreur sur :" & "rechercheSinistre"
    IE.document.all("rechercheSinistre").Click
    WaitIE IE
    erreur = "erreur sur :" & "link(6)"
    IE.document.Links(6).Click
    WaitIE IE
    erreur = "erreur sur :" & "le all(""i"")"
    IE.document.all("1").Click
    WaitIE IE
    erreur = "erreur sur :" & "listDesignationBean[0].checked"
    IE.document.all("listDesignationBean[0].checked").Click
 
 
    WaitIE IE
    erreur = "erreur sur :" & "designExpert"
    IE.document.all("designExpert").Click
    Exit Sub
gest_erreur:
    MsgBox erreur
    end sub

22/11/2016, 14h17
ndria34

euh il y une erreur sur cette ligne "On Error GoTo gest_erreur" quand je lance la macro

Voir 40 message(s) de cette discussion en une page