Bonjour,
j'ai une page:
Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
<!DOCTYPE html>
<html>
<head>
<title> partage avec hiérarchie imbriquée</title>
</head>
<frameset cols="20%,80%">
<frame id="zone2" src="page1.html" name="zone2">
<frameset rows="20%,80%">
<frame name="zone1">
</frameset>
</frameset>
</html>

Lorsque j'ouvre cette page avec Internet explorer et que j'exécute le code ci-dessous :

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
Option Explicit
Dim objApp, Window, monURL, count
 
Set objApp = CreateObject("Shell.Application")
 
count = -1
For Each Window In objApp.Windows
  If Window = "Internet Explorer" Then
    count = count+1
    monURL = objApp.Windows(count).locationUrl  
 
    If monURL = "file:///C:/Users/username/Desktop/maPage.html" then	
 
	   msgbox Window.Document.body.innerHTML
    End if
 
  End if   
 
Next
j'obtiens ceci :

Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
<frame name="zone2" id="zone2" src="page1.html">
<frameset rows="20%,80%">
<frame name="zone1">
</frameset>

Je remarque au passage que le code source n'est pas entier. J'aimerais afficher le code source de la page page1.html qui se trouve dans la frame. Sauriez-vous ce que je dois mettre à la place de :

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
msgbox Window.Document.body.innerHTML

J'ai essayé :

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
msgbox Window.Document.Frames(0).innerHTML

ça marche pas.