Cartes à associer avec coordonnées GPS

Fermé
quentinh390 Messages postés 50 Date d'inscription dimanche 30 décembre 2007 Statut Membre Dernière intervention 12 août 2014 - 13 juil. 2010 à 11:03
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 8 déc. 2010 à 02:32
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



A voir également:

6 réponses

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 13/07/2010 à 12:54
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)]
1
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
7 déc. 2010 à 21:51
Bonsoir,

Je n'avais pas vu le fil à l'époque mais merci à myta pour ce code interessant et redoutable d'efficacité.

PS : je ne veux pas masquer la question de Fofbill qui a fais remonter ce post. Voir ici
0
quentinh390 Messages postés 50 Date d'inscription dimanche 30 décembre 2007 Statut Membre Dernière intervention 12 août 2014 1
13 juil. 2010 à 13:07
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
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 13/07/2010 à 13:26
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)]
0
quentinh390 Messages postés 50 Date d'inscription dimanche 30 décembre 2007 Statut Membre Dernière intervention 12 août 2014 1
13 juil. 2010 à 13:35
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
13 juil. 2010 à 22:42
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å
0
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
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
8 déc. 2010 à 02:32
Re le forum

Ici on parle de GoogleMaps pas d'une image au format TIF, aucun rapport

Mytå
0