Discussion :

[jeanne2]

Bonjour à tous,

J'ai regardé sur le forum et j'ai trouvé un post me permettant d'écrire le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   Dim mondoc As HTMLDocument
   Dim mavaleur As String
 
           'Set mondoc = objIE.Document
           Set mondoc = New HTMLDocument
           mondoc.createDocumentFromUrl "http://www.yahoo.fr", ""
 
            Do While mondoc.ReadyState <> "complete"
            DoEvents
            Loop
 
 
        mavaleur = mondoc.documentElement.outerHTML

J'ai un problème, le code remonté ne contient pas l'intégralité du code source.
Savez-vous d'où vient cette erreur ?

Je vous remercie

Bonne journée

[Minick]

Salut,

Effectivement, j'arrive au meme resultat que toi et je ne vois pas trop pourquoi.

Par contre je peux te proposer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim oIE As Object
    Dim sHtml As String
 
    Set oIE = CreateObject("InternetExplorer.Application")
 
    oIE.navigate ("http://www.yahoo.fr")
    Do While (oIE.Busy)
        DoEvents
    Loop
    sHtml = oIE.document.documentElement.outerHTML
    oIE.Quit