XL 2016 VBA - Peut-on créer un Control WebBrowser sur une feuille ?

Dudu2

XLDnaute Barbatruc
Bonjour,
Il est très difficile, en particulier à la lecture de la doc Microsoft, de trouver un simple exemple de création dynamique de Control WebBrowser.
J'ai trouvé cet exemple sur stackoverflow.com mais ça ne fonctionne pas.

VB:
Sub AddWebBrowserToWorksheet()
    Dim myWebBrowser
    Dim wb

    With ThisWorkbook.Worksheets(1)
        On Error Resume Next
        .OLEObjects(1).Delete
        On Error GoTo 0
 
        Set myWebBrowser = .OLEObjects.Add(ClassType:="Shell.Explorer.2", _
                            Left:=100, Top:=100, Width:=400, Height:=400)
    End With
                   
    Set wb = myWebBrowser.Object
End Sub

1700461407762.png



Et c'est pareil quand je le fais manuellement !!!

1700461935959.png
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
VB:
'version 2016 MSI
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}

'version ClickToRun 2016  à 2019
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Microsoft\Office\Software\16.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}
la clé est tout simplement à supprimer
il existe d'autre endroits mais je ne retrouve plus la page
 

Discussions similaires

Réponses
0
Affichages
317
Réponses
1
Affichages
395