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 :
j'obtiens ceci :
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
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.
Partager