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