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é

[DarkVader]

C'est normal si le domaine de la page parente diffère du domaine de la page iframe ;
c'est même l'un des seuls intérêts des cadres locaux.
Tu peux toujours essayer de récupérer l'adresse source du iframe et de faire une navigation séparée
mais cela suppose que le concepteur de la page n'ait pas pris en compte la vérification de la présence de la page parente
ce qui serait plutôt surprenant.

[bailamos]

Alors c'est impossible

[DarkVader]

Tu as essayé de faire un .navigate Pframe.src ?

[bailamos]

Tu as essayé de faire un .navigate Pframe.src ?

oui j'ai essaté mais il y'as une vérification de la page parente redirection automatique vers la 1er page

[bailamos]

Bonjour,
Peut-être que j’ai trouvé une solution mais je ne sais pas comment la mettre en pratique cette solution consiste à récupérer le cache de la page en question du cache internet explorer
vous avez une ideés????
Merci

[lenovo49]

J'ai repris ce post et en utilisant la solution de bbill, j'ai réussi à obtenir la source de l'iframe. malheureusement ce matin il me retourne "accès refusé" dans la fenêtre des variables locales sous vba.

Je n'arrive pas à comprendre pourquoi cela a fonctionner plusieurs fois hier et plus maintenant.

Il y a t'il d'autres solutions pour agir à l'intérieur de l'iframe?

D'avance merci