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

c'est impossible que ta fenêtre IE est ce titre si elle a l'url que tu m'a donné ou alors ta deuxième fenêtre n'est pas une fenêtre IE mais une frame dynamique ou autre

je t'ai demander la barre d'adresse de la 2d page tu m'a donné http://sinistres-climats-gsu-pp.ra1....xpertMissionne..........
donc la fonction doit la trouver
si elle ne la trouve pas soit tu me donne pas la bonne soit c'est pas une fenêtre IE ta 2d page c'est pas compliqué surtout en augmentant les 2000 on a largement le temps de la trouver

c'est un peu le soucis avec les débutants et en plus sans pouvoir tester on tourne longtemps en rond pour des fois une broutille

j'ai ajouter un debug dans la fonction

regarde après même l'erreur
si tu a vraiment ta soit disant fenêtre avec ton titre

tu sais afficher la fenêtre d'exécution au moins???? dans le VBE

je te redonne la fonction au cas ou tu n'aurais pas compris

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 Debug.Print obj.LocationURL 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

---

J'avoue que je patauge complet, mais tout ce que je sais c'est que ma fonction de recherche par titre avec "FRS - Liste des experts missionnables" fonctionne très bien avec ma macro en "pas à pas détaillé" et même des fois elle fonctionne quand je la lance direct alors que si je met "tartanpion" comme titre ça ne fonctionne pas donc c'est bien le bon titre (maPageHtml.Title).

Pourquoi ne pas adapter ma fonction telle quelle mais en attendant le chargement toussa toussa

puré on va pas s'en sortir

donne moi la liste des urls que tu obtiens dans le debug

Citation:

---

"FRS - Liste des experts missionnables" fonctionne très bien avec ma macro en "pas à pas détaillé"

---

oui et non je crois comprendre qu'il y a confusion de page
met un exit sub juste avant set IE2="....."
et fait une capture si tu sais faire

je veux la voir cette fenêtre si possible avec la caption hein !!!

Pièce jointe 225649

Voilà la capture en premier plan c'est la deuxième page, je n'ai pu mettre que les bandeaux par souci de confidentialité.

re
et oui cette fenetre c'est un openwindows lancé par javascript par la page 1( des fenêtres internet épurées de toute options )ca n'est donc pas un navigate 2

est ce que tu l'a dans le debug ????IMPORTANT
je n'ai jamais eu a traiter avec ce genre de fenêtre par VBA si on l'a dans le debug on doit pouvoir la traiter a moins que les arguments de la fonction javascript de la page1 qui affiche cette page l'empêche c'est possible aussi

Merci pour toutes ces explications, mais comment voir si je l'ai dans le DEBUG ? question surement conne mais je patauge

d'accords tu sais pas
dans l'editeur de code vba donc le VBE( visual basic editor)
tu a un onglet en haut "affichage"
clique dessus et choisi "fenêtre d'exécution" c'est le debug
tu va avoir un encart en bas
au dessus de cet encart tu a la fenêtre du module affiché actuellement

lance la sub et regarde dans la fente debug même si ca plante erreur ou pas tu t'en fou tu laisse finir jusque qu'a la fin ou le massage d'erreur

regarde si tu a l'adresse le titre de ta fenêtre a l'intérieur

comme dans cette capture

Pièce jointe 225663

D'accord c'était bien là où j'étais quand je lance la macro j'ai ça dans l'éditeur d'exécution :

http://gsds40011.gsd.intra.groupama....f?OpenDatabase
http://gsds40011.gsd.intra.groupama....f?OpenDatabase
http://gsds40011.gsd.intra.groupama....f?OpenDatabase

et c'est l'URL de ma première page internet ouverte qui n'est autre que ma messagerie, du coup je ne comprend plus rien lol

on est bien d'accord tu ne l'a pas donc ???
a tu essayé en augmentant a 15000??
regarde bien car la liste une fois la boucle passé repasse a la première jusque a obtention de la fenêtre ou le message
en même temps je ne suis pas étonné ca fait partie des protections anti robots basique
c'est pour ca que quelques fois en pas a pas ca passe

bon puisque l'url n'est pas bonne en fait c'est le titre de la fentre "locationname" on va tester par cette propriété
en tout cas il est certain que une de tes 3 url obtenu tout a l'heure est la bonne a moins que ca ne soit pas une fenêtre IE mais une app intégrée au site

change ta fonction pour celle ci comme tel et regarde dans le debug et dis moi si elle est la !!!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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 Debug.Print obj.LocationName If TypeName(obj.document) = "HTMLDocument" Then 'Debug.Print obj.LocationURL 'If obj.LocationURL Like "*" & url & "*" Then trouver_ie_par_titre = obj: trouvé = True: Exit For If obj.LocationName Like "*" & url & "*" Then trouver_ie_par_titre = obj: trouvé = True: Exit For End If Next obj Loop Until trouvé = True Or i = 15000 If i = 15000 Then trouver_ie_par_titre = Nothing End Function

---

J'ai restesté et voilà ce qu'il m'affiche :

http://gsds40011.gsd.intra.groupama....f?OpenDatabase
GARAGE
Robots GMED

le premier est l'adresse de ma messagerie et les deux suivants sont des noms de dossiers ouverts à côté.

oui je crois effectivement que la P anti robot consiste essentiellement en l'exploitation de cette dite 2d page manuellement, des que l'on automatise plus rien ne va
perso je crois que l'on a tout vu
sans possibilité de pouvoir tester je ne peut aller plus loin pour peu qu'on le puisse d'ailleurs
bien que le web/vba étant un de mes principaux cheval de bataille il faut savoir arrêter

Peut-être via UI Automation mais sans pouvoir accéder à la page ni disposer d'informations suffisantes,
c'est effectivement une perte de temps …

Citation:

---

Envoyé par patricktoulon

oui je crois effectivement que la P anti robot consiste essentiellement en l'exploitation de cette dite 2d page manuellement, des que l'on automatise plus rien ne va
perso je crois que l'on a tout vu
sans possibilité de pouvoir tester je ne peut aller plus loin pour peu qu'on le puisse d'ailleurs
bien que le web/vba étant un de mes principaux cheval de bataille il faut savoir arrêter

---

Ok en tout cas merci pour ton temps.

Salut Patrick !

Citation:

---

Envoyé par patricktoulon

Ok Marc je vais regarder
je soupçonne le net Framework ou les MAJ office le reste ne sont que de la broutille

---

J'ai oublié un p'tit détail : l'anti-virus n'est plus le même … :whistle2:

re
je vais tester avant d'aller chercher ses mises a jour voir si ca fonctionne
peut être que c'est le site tout simplement hein!!!

c'est le net framework package!!!!!

Non ‼ Sûr ?

a ben oui avant installation readystate a 4 tourne en rond après install ready 4 ok avec ton fichier et tes 4 démos
y compris sur mon démosouris2 et demosendkey et meme mon demo sendkey avec wscrip shell

j'ai reçu aussi après network Kegen .....optimisation j'ais pas quoi

Pièce jointe 225828Pièce jointe 225828

Merci .

Cela expliquerait alors pourquoi ce que j'avais réussi à contourner avec UI Automation
ne fonctionne plus sur la configuration annexe de tests (Windows 8.1 - IE11 - Firefox).

J'espère que du côté de Microsoft c'est réglé une fois pour toute, sans un futur bis repetita …

re

Citation:

---

J'espère que du côté de Microsoft c'est réglé une fois pour toute, sans un futur bis repetita …

---

je parierais pas la dessus !!!:roll: