probleme variable

yoda60

XLDnaute Nouveau
bonjour,

j'ai un code pour ouvrir une carte type Google map

je voudrais y placer des repère selon les coordonnées gps d'une feuille a part

cette feuille s'intitule "ongletListeCommunes"
les coordonnées gps sont sous la forme en A Compiègne/////// en B 49.416667, 2.833333
ainsi de suite

j'ai un début de code ci dessous

Private Sub btnMise_a_jour_Click()
ongletBase = "ongletListeCommunes" 'nom de l'onglet contenant la liste des communes
tbl = Sheets(ongletBas).Range("A1").CurrentRegion.Value 'plage de valeurs contenant les informations sur les communes
For i = LBound(tbl) To UBound(tbl) 'on boucle sur chaque commune
commune = tbl(i, 1): lat = tbl(i, 2): lon = tbl(i, 3)
EnvoiScript "map.SetCenterAndZoom(new VELatLong(lat, lon), 6);" 'on centre sur la commune
Call ajoutRepere(commune) 'puis on ajoute un repère au centre
Next i
End Sub

Sub ajoutRepere(commune As String)
Dim T As String
'Ajouter un point repère (Pushpin) au centre de la carte
commune = Application.Substitute(commune, "'", " ")
T = "var shape = new VEShape(VEShapeType.Pushpin, map.GetCenter());" _
& "shape.SetTitle('" & commune & "');" _
& "shape.SetDescription('" & commune & "');" _
& "map.AddShape(shape);"
EnvoiScript T
End Sub

si quelqu'un a une idée:confused:

merci de votre aide

cordialement
 

Discussions similaires

Statistiques des forums

Discussions
312 435
Messages
2 088 401
Membres
103 839
dernier inscrit
Patounet66