Cartes à associer avec coordonnées GPS

Question

Bonjour, 

J'espere être dans le bon forum mais je ne savais pas ou poster ca.

Voila, j'ai une base de données avec environ 2000 coordonnées gps ( longitude et latitude ). Je voudrais pouvoir associer un plan à chacune de ces coordonnées.
Je peux le faire via google map en tapant à chaque fois la coordonnée et enregistrer le plan pour ensuite pouvoir le coller dans un document.
Mais vous comprenez bien que si je dois faire ca pour les 2000 cartes j'en ai pour 3 ans :)

Auriez vous une idée plus rapide ou bien un logiciel?

D'avance merci



Configuration: Windows XP / Internet Explorer 7.0

Mytå · Answer

Salut le forum  

Code de la macro à mettre dans un module  

Option Explicit  

Sub Test()  
    RechercheGoogleMap "49.192923,-68.27076"  
End Sub  


Sub RechercheGoogleMap(Coordonnée As String)  
      
    Dim strURL As String  
      
    strURL = "https://www.google.fr/maps?f=q&hl=fr&q"  
    strURL = strURL & Coordonnée  
      
    ThisWorkbook.FollowHyperlink strURL  
      
End Sub
Regarde si cela pourrait alimenter la discussion  
Mytå  
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

quentinh390 · Answer

Merci, avec cette macro je suis bien redirigé vers les coordonnées gps entrée dans la macro mais comment faire pour pouvoir l'utiliser pour chaque coordonnées? ( lignes par lignes )??

D'avance merci

Mytå · Answer

Re le forum 

Il suffit de fairre une boucle 

Sub Test()  
For Ligne=1 to 10  
  Coord= Cells(Ligne,1) & "," & Cells(Ligne,2) 
    RechercheGoogleMap Coord  
Next Ligne 
End Sub  
Mytå 
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

quentinh390 · Answer

Merci, mais il me dit que " ligne " n'est pas déclaré..

Pourriez vous m'écrire exactement ce que je dois mettre dans la macro?

Désolé pour mon ignorance mais je ne sais absolument pas programmer la dedans..

Merci.

Mytå · Answer

Re le forum

Pour le code Ici les coordonnées en colonne A et B depuis la ligne 1.


Sub Test()
Dim Ligne as Integer
Dim Coord as String
  
For Ligne=1 to 10  
  Coord= Cells(Ligne,1) & "," & Cells(Ligne,2) 
    RechercheGoogleMap Coord  
Next Ligne
 
End Sub 

Mytå

Fofbill · Answer

Bonsoir escuser moi mais j'ai un sousi semblable. En effet, j'ai une carte au format TIF sur laquelle je veux inserer des position GPS. Je ne sais comment m'y premdre. Merci

Cartes à associer avec coordonnées GPS

6 réponses

Discussions similaires

Newsletters