Didier,

Tu es un magicien

Tes précieux conseils m'ont permis de comprendre que le JS est très "sensible" (une apostrophe, une majuscule ...)

J'apprecise énormément le temps qu tu m'a consacré.

Si dans l'avenir, je peux te rendre la pareille, cela sera avec plaisir (malgré mes faibles compétences en JS, tu as pu t'en rendre compte)

PS : je me suis aperçu également d'un autre petit dysfonctionnement, il ne faut pas d'apostrophe dans les données (sauf en utilisant "substitute")

Encore Mille mercis

Très cordialement.

Bonjour Didier,

Merci de m'avoir consacré un peu de temps.

Désolé pour la mise en forme de mon post, il est vrai que je n'ai pas trop l'habitude de solliciter de l'aide sur les forums ; j'ai plus l'habitude de trouver des solutions par moi même ; mais là, c'est la "colle".

J'avais en effet testé les apostrophes avant les guillemets, mais le résultat restait inchangé :

J'ai également pensé à une erreur sur ma boucle et en ai refaite une :

Le résultat reste le même

A toute fin utile, je vous adresse mon fichier Excel.

Cordialement.

Bonjour Didier,

Merci pour ton retour rapide.

Je comprends tout a fait ce que tu veux dire.

Je trouve cela bien de nous avoir fait part de tes recherches, et que tu souhaites passer " a autre chose". Je te souhaites une bonne continuation.

Si quelque un a connaissance de ce message et est en mesure de m'enveler cette épine du pied, ce serait super, car malgré mes recherches sur le net et diverses doc, je retrouve rien ... je suis bloqué.

Par avance, merci

Bien cordialement.

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

Merci pour vos conseils avisés