Dim IE2 As New InternetExplorer
Dim WinShell As New ShellWindows
Dim HDOC As HTMLDocument
Dim Champs As HTMLElementCollection
'la fenetre de l'application étant toujours ouverte je la cherche parmi les fenêtres windows déjà ouvertes'
For Each IE2 In WinShell
If Left(IE2.LocationURL, 36) = "http://172.29.1.92/uSupervisorWebApp" And Len(IE2.LocationURL) > 36 Then
Exit For
End If
Next
End If
Set HDOC = IE2.document
Set Membre = HDOC.all("OutLookStyleNavigatorControlListbarControlctl00ctl00TreeControl_1_98")
comme s'il s'agissait d'une autre page web
window.frames['nom_frame'].document.getElementById('id_element')
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Dim IE2 As New InternetExplorer
Dim WinShell As New ShellWindows
Dim HDOC As HTMLDocument
Dim Champs As HTMLElementCollection
'la fenetre de l'application étant toujours ouverte je la cherche parmi les fenêtres windows déjà ouvertes'
For Each IE2 In WinShell
If Left(IE2.LocationURL, 36) = "http://172.29.1.92/uSupervisorWebApp" And Len(IE2.LocationURL) > 36 Then
Exit For
End If
Next
End If
Set HDOC = IE2.document
Set Membre = HDOC.getElementbyid("OutLookStyleNavigatorControlListbarControlctl00ctl00TreeControl_1_98")
http://www.partage-facile.com/W93O34ZHS9/code.txt.html
OutLookStyleNavigatorControlListbarControlctl00ctl00TreeControl_1_98
http://www.hostingpics.net/viewer.php?id=398349imprime.jpg