Bonjour,

J'ai obtenu votre utilitaire "Exemple Vitual Earth"

Cet utilitaire est vraiement très intéressant, BRAVO pour votre réalisation. Elle laisse libre court à notre imagination pour continuer le travail du créateur.

J'aurais souhaité intégrer l'affichage de mon carnet d'adresses que j'ai saisi dans un onglet appelé 'carnet', contenant, les coordonées GPS

J'ai effectué une boucle en intégrant le code suivant :

Private Sub CommandButton1_Click()

Dim WS As Worksheet
Dim s As Long
Dim Java1 As String
      
Set WS = Worksheets("adresses")
    With WS
    s = 2
        While .Range("A" & s).Value <> ""
                Java1 = "Var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Cells(s, 6).Value & "));" _
                & "Mark.SetTitle(" & Cells(s, 1).Value & ");" _
                & "Mark.SetDescription(" & Cells(s, 7).Value & ");" _
                & "map.AddShape(Mark);"
               
                EnvoiScript Java1
               
                s = s + 1
         Wend
    End With

End Sub

Lors de l'execution, j'ai un message d'erreur me renvoyant vers le browser :

 WebBrowser1.Document.parentWindow.execScript Js, "Javascript"

Auriez vous une solution a m'apporter afin de rappatrier mon carnet vers la carte ?

Par avacance, merci
--------------------------
Après avoir modifié de la facon suivante :

Private Sub CommandButton1_Click()

Dim s As Long
Dim Java1 As String

s = 2
        While Sheets("adresses").Range("A" & s).Value <> ""
                Java1 = "Var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("adresses").Cells(s, 6).Value & "));" _
                & "Mark.SetTitle(" & Sheets("adresses").Cells(s, 1).Value & ");" _
                & "Mark.SetDescription(" & Sheets("adresses").Cells(s, 7).Value & ");" _
                & "map.AddShape(Mark);"
               
                EnvoiScript Java1
               
                s = s + 1
               
        Wend

End Sub

j'ai le résultat suivant : erreur sur fichier de connection :  " ; " attendu
puis :

Private Sub EnvoiScript(Js As String)
    'Exécute la fonction JavaScript passée en argument sous forme d'une chaîne de caractères.
    WebBrowser1.Document.parentWindow.execScript Js, "Javascript"
End Sub