d'accord il fallait juste mettre gestion_erreur lol, tout fonctionne du coup, il ne m'affiche pas de message
d'accord il fallait juste mettre gestion_erreur lol, tout fonctionne du coup, il ne m'affiche pas de message
et si j'enlève le IE.Busy il me met une erreur sur link(6)
et link(6) c'est bien que je veux cliquer sur le 6ème lien
bon ben on avance
bon a mon avis cela vient de ta fonction nouvelle fenêtre il faut l'encapsuler dans un do/loop tant qu'elle est inexistante
en l'heure actuelle elle liste les fenêtres directement mais si le ie1 busy encore la ie2 ne peut pas être encore prête
je regarderait ce soir
pour l'instant tu sais de sur maintenant que la navigation IE1 est impec!!! c'est déjà un grand pas.
tu sais ou l'erreur se produit maintenant hein !!!!
Merci beaucoup pour ton temps, c'est cool, t'assures
re
oulah!!!! attention
alors c'est le 5 car les index d'élément comme dans VBA ils commencent par 0et link(6) c'est bien que je veux cliquer sur le 6ème lien
le premier c'est 0
le 2d c'est 1
le 3 eme c'est 2
etc......
j'en conclu que si la partie IE1 fonctionne pour toi c'est le 7 eme link que tu veux et chope forcement
je regarde rait ce soir pour l'heure je repart en inter
A+
bon ca m'a mit un peu en retard mais voila
teste moi cela
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 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 WaitIE IE Set IE2 = trouver_ie_par_titre("FRS - Liste des experts missionnables") If IE2 = Nothing Then MsgBox " fenetre IE2 pas trouvée": Exit Sub WaitIE IE2 erreur = "erreur sur :" & "critereRecherche.nomep dans IE2" IE2.document.all("critereRecherche.nomep").Value = Range("c3") erreur = "erreur sur :" & "Rechercher dans IE2" IE2.document.all("Rechercher").Click WaitIE IE2 erreur = "erreur sur :" & """intervenantRecherche[0].indIntervSel"" dans IE2" IE2.document.all("intervenantRecherche[0].indIntervSel").Click WaitIE IE2 erreur = "erreur sur :" & """ValiderRecherche"" dans IE2" IE2.document.all("ValiderRecherche").Click Exit Sub gest_erreur: MsgBox erreur End Sub Public Function trouver_ie_par_titre(Optional url As String = "") As Object Dim objShell As Object, obj As Object, trouvé As Boolean Set objShell = CreateObject("shell.application") Do i = i + 1 For Each obj In objShell.Windows If TypeName(obj.document) = "HTMLDocument" Then If obj.LocationURL Like "*" & url & "*" Then trouver_ie_par_titre = obj: trouvé = True: Exit For End If Next obj Loop Until trouvé = True Or i = 20000 If i = 20000 Then trouver_ie_par_titre = Nothing End Function
difficile pour moi ne pouvant pas tester mais on doit pas être loin
Quand je lance la macro, j'ai directement une "erreur de compilation : utilisation incorrecte de l'objet" et cela surligne le "nothing" ligne 32
Et si je met la ligne 32 en commentaire, j'ai le msgbox : erreur sur designExpert.
voila inter rapide me voila de retour
autant pour moi correction
des fois moi aussi je m'emmêle les pinceaux
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 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 WaitIE IE erreur = "erreur!!! sur l'object ie 2 trop long a obtenir " Set IE2 = trouver_ie_par_titre("FRS - Liste des experts missionnables") If IE2 Is Nothing Then MsgBox erreur: IE.Quit: Exit Sub WaitIE IE2 erreur = "erreur sur :" & "critereRecherche.nomep dans IE2" IE2.document.all("critereRecherche.nomep").Value = Range("c3") erreur = "erreur sur :" & "Rechercher dans IE2" IE2.document.all("Rechercher").Click WaitIE IE2 erreur = "erreur sur :" & """intervenantRecherche[0].indIntervSel"" dans IE2" IE2.document.all("intervenantRecherche[0].indIntervSel").Click WaitIE IE2 erreur = "erreur sur :" & """ValiderRecherche"" dans IE2" IE2.document.all("ValiderRecherche").Click Exit Sub gest_erreur: MsgBox erreur End Sub Public Function trouver_ie_par_titre(Optional url As String = "") As Object Dim objShell As Object, obj As Object, trouvé As Boolean Set objShell = CreateObject("shell.application") Do i = i + 1 For Each obj In objShell.Windows If TypeName(obj.document) = "HTMLDocument" Then If obj.LocationURL Like "*" & url & "*" Then trouver_ie_par_titre = obj: trouvé = True: Exit For End If Next obj Loop Until trouvé = True Or i = 2000 If i = 2000 Then trouver_ie_par_titre = Nothing End Function
Salut Patrick !
Tiens cela me fait penser - pour info - en pilotant Firefox sur Abcbourse puis en testant une variante avec IE
je n'ai plus le souci sur le même ordinateur de tests sous Seven & IE9 avec le IE.ReadyState bloqué à 3,
il passe de nouveau à 4 (Complete) … Entre temps il y a eu des mises à jour via Windows Update.
Je n'ai pas encore vérifié sur l'autre configuration sous Windows 8.1 & IE11 …
salut marc il serait bon que tu me donne le nom des KB pour voir si je les ai reçu perso
Ok merci, j'ai relancé la macro et j'ai le msgbox "erreur!!! sur l'object ie 2 trop long a obtenir" qui s'affiche.
re bonjour
est ce que la seconde fenêtre IE2 arrive bien
si oui !!!alors
dans les lignes 62 et 63 augmente le 2000 a 5000 voir plus ,pour laisser plus de temps a la fenêtre d'arriver
Re désolé j'étais en réunion.
J'ai bien ma deuxième fenêtre qui s'ouvre
J'ai augmenté à 5000, 10000 et même à 50000 mais j'ai toujours la même erreur.
Ok Marc je vais regarder
je soupçonne le net Framework ou les MAJ office le reste ne sont que de la broutille
ndria donne moi ce qui est dans la barre d'adresse de la 2 d page je soupçonne que tu te fourvoie en demandant autre chose que le locationURL
l'url de la 2nd page :
http://sinistres-climats-gsu-pp.ra1....thode=afficher
a ben voila j'avais raison
mais ou t allé chercher ceci: alors "FRS - Liste des experts missionnables"
je parirais que c'est ce que tu vois affiché dans la pages 1 en lien non ???
puré de puré
allez remplace la ligne set IE2=
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set IE2 = trouver_ie_par_titre("http://sinistres-climats-gsu-pp.ra1.intra.groupama.fr/FRS_FSin/popupListeExpertMissionne")
Patrick
Tu as oublié un Set dans la ligne 57La ligne 61 n'a pas lieu d'être
Code : Sélectionner tout - Visualiser dans une fenêtre à part set machin=obj:...
Une page HTML a un titre spécifique, j'ai fait ma fonction recherche selon ce titre justement et pour la deuxième page c'est bien "FRS - Liste des experts missionnables" le titre. Et ma macro fonctionnait bien avec ça en pas à pas détaillé (ce ne serait pas le cas sinon).
Avec ce que tu m'as dit de remplacer, j'ai la même erreur.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager