Discussion :

[bailamos]

Bonsoir,
J’essaie d’avoir le code html d’une iframe dont l’id est iframe1 mais ca retourne le code html de la page qui contient l’iframe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox WebBrowser1.Document.getelementById("iframe1").Document.documentelement.innerHTML

Comment faire pour n’avoir que le code a l’intérieure de l’iframe

[ProgElecT]

En partant d'une réponse de bbil dans cette discussion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "www.developpez.com"
Do While (oIE.Busy)
	WScript.Sleep 200
Loop
'msgBox oIE.Document.documentelement.Innerhtml
msgBox oIE.Document.documentelement.Innertext

Bien que écrit pour VBScript, parlant de IeFrame, InnerText doit pouvoir lui être applicable, donc essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox WebBrowser1.Document.getelementById("iframe1").Document.documentelement.innertext

[DarkVader]

Bonjour,
essaie plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Document.getElementById("iframe1").innerHTML

[bailamos]

mais j'ai testé tout ca sans resultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
WebBrowser1.Document.getElementById("iframe1").innerHTML
 
WebBrowser1.Document.getelementById("iframe1").Document.documentelement.innerHTML
 
WebBrowser1.Document.getelementById("iframe1").Document.body.innerHTML

[DarkVader]

Au temps pour moi : le code retourne le contenu de la balise iframe.
Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim Ifr As HTMLIFrame
    Set Ifr = webbrowser1.document.getElementById("iframe1")
    Debug.Print Ifr.contentWindow.document.body.innerHTML

[bailamos]

Au temps pour moi : le code retourne le contenu de la balise iframe.
Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim Ifr As HTMLIFrame
    Set Ifr = webbrowser1.document.getElementById("iframe1")
    Debug.Print Ifr.contentWindow.document.body.innerHTML

permission denied

[SfJ5Rpw8]

et ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Pframe As HTMLWindow2
 
Set Pframe = webbrowser1.document.frames("iframe1")
Debug.Print Pframe.document.documentElement.innerHTML

[bailamos]

et ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Pframe As HTMLWindow2
 
Set Pframe = webbrowser1.document.frames("iframe1")
Debug.Print Pframe.document.documentElement.innerHTML

accès refusé