Voici ce que je me sers pour afficher google maps dans un WebBrowser
Je n'ai pas télécharger ton fichier mais si n'y a pas d'erreur voici le code:
Dans un module mettre le code suivant pour le WebBrowser
'***** Programmation de la clé du registre "HKEY_CURRENT_USER" *****
Public Sub SetSettings(Optional strPfad As String, Optional strInhalt As String, _
Optional strTyp As String, Optional bolDeleteKey As Boolean = False)
' Déclaration des variables grâce à Dim
Dim wshshell As Object
Set wshshell = CreateObject("WScript.Shell")
If bolDeleteKey Then
wshshell.RegDelete strPfad
Else
wshshell.RegWrite strPfad, strInhalt, strTyp
End If
Set wshshell = Nothing
End Sub
Dans ThisWorkbook mettre le code suivant pour modifier la clé de registre afin d'afficher google maps
'***** Programmation de démarrage du classeur *****
Private Sub Workbook_Open()
Call SetSettings("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\Excel.exe", 11001, "REG_DWORD", False)
End Sub
Cordialement