Bonjour,
Je suis sur une petit projet qui consiste à automatiser de la saisi sur un site web.
Grace au tutoriel de Qwazerty, J'arrive a interagir avec la page web ( Merci super travail)
Une des actions m'ouvre une nouvelle page en .jsp
une sorte de pop up IE sans barre d'adresse. ( ==> barre d'adresse visible quand je réalise l'opération en manuelle avec CHROME, c'est là que j'ai récupéré l'URL)
Je souhaite accéder a cette page mais je n'y arrive pas :
J'utilise la fonction suivante avec l'URL de la page en question. mais aucun résultat. En cherchant un peu j'ai remarque que cette page n'apparaissait pas dans "objShell.Windows"
Ci dessous la fonction utiliser et une capture d'ecran de la page en question.
Merci d'avance a ceux qui prendront le temps de se pencher sur ce problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Function GetobIEOBject(URL As String) As Object Dim objShell As Object Dim obj As Object Set objShell = CreateObject("shell.application") For Each obj In objShell.Windows If TypeName(obj.document) = "HTMLDocument" Then If obj.LocationURL = URL Then Set GetobIEOBject = obj End If Next obj End Function
Partager