Titre du sujet : Re: Exemple Virtual Earth - Boucle sur Feuille Classeur
par vl4026 le 01/11/2011 14:52:12
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é :
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
J'ai également pensé à une erreur sur ma boucle et en ai refaite une :
Private Sub TEST2_Click()
Dim a As Integer
Dim Javater As String
Private Sub TEST2_Click()
Dim a As Integer
Dim Javater As String
For a = 2 To Sheets("contacts").Range("A65536").End(xlUp).Row
Javater = "Var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong('" & Sheets("contacts").Cells(a, 6).Value & "'))';" _
& "Mark.SetTitle('" & Sheets("contacts").Cells(a, 1).Value & "');" _
& "Mark.SetDescription('" & Sheets("contacts").Cells(a, 7).Value & "');" _
& "map.AddShape(Mark);"
EnvoiScript Javater
Next a
End Sub
Le résultat reste le même
A toute fin utile, je vous adresse mon fichier Excel.
Cordialement.
| 
Didier FOURGEOT