Rapport de message :*
 

Re: Exemple Virtual Earth - Boucle sur Feuille Classeur

Titre du sujet : Re: Exemple Virtual Earth - Boucle sur Feuille Classeur
par myDearFriend! le 31/10/2011 18:49:35

Bonjour Vl4026,

Juste en passant et parce que j'apprécie ta compréhension de la situation...

A tout hasard, tu peux peut-être tenter cette piste :
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
Il faut être hyper-vigilant pour retranscrire les commandes Javascript depuis des lignes VBA et ne surtout pas oublier les apostrophes (remplaçant les guillemets habituellement utilisés pour nous)... Apostrophes que j'ai ajoutées en rouge dans le code VBA ci-dessus.

Par ailleurs, si tes expressions chaines de caractères issues des cellules de ta feuille contiennent elles-même des apostrophes, il te faudra aussi agir :
Et pour rappel, dans le Tutoriel Exemple Virtual Earth, je précisais :

'Attention, ici l'apostrophe remplace les guillemets dans les instructions JavaScript.
        'Aussi, si l'adresse saisie contient une apostrophe, il convient de faire précéder cette
        'dernière par un caractère \ pour éviter un plantage du script.

Voilà, je pense que c'est une des pistes à suivre pour ton problème...

Bonne continuation à toi.

Cordialement,


Nb : pour insérer du code VBA dans les posts, merci de consulter cette FAQ.