Bonjour a tous

je suis en train de faire une petite expérience ou j'ai besoins d'ajouter un webbrowser dynamiquement dans le sheets
je l'ajoute mais il est inutilisable apparemment ou j'ai pas pigé un truc
si quelqu'un a une idée je prends
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
20
21
Sub AddWebBroswerToWorksheet()
    Dim myWebBrowser
    Dim wb
    Set myWebBrowser = Sheets(1).OLEObjects.Add(ClassType:="Shell.Explorer.2", Left:=147, Top:=60.75, Width:=400, Height:=400)
    myWebBrowser.Name = "web"
    Set wb = myWebBrowser.Object
    With wb
        .Silent = True
        .Navigate "about:blank" si je met l'adresse de google ca navigue pas non plus 
 
        .Document.write "<html><div id=""calque"" style=""width:80%;height:80%;border:1px solid red""></div></html>"
 
        Do: DoEvents: Loop Until .ReadyState = 4    'probleme boucle indéfiniment
 
        Debug.Print .Document.getelementbyid("calque").innerhtml
 
        '.Document.body.Scroll = "no"
        'Debug.Print .Document.body.innerHTML
    End With
 
End Sub
normalement je dois avoir mon carré(balise div) avec bordure rouge dans le webbrowser
une idée pitié je me prends la tète avec ca depuis 1 bonne heure
merci pour les retours