Interroger google maps Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
ddetp88
Membre dévoué
Membre dévoué
Messages : 870
Appréciations reçues : 6
Inscrit le : 5 janvier 2015
Version d'Excel : 2016

Message par ddetp88 » 30 septembre 2019, 18:40

Bonjour,

Je me développe une petite application en lien avec l'observation d'oiseaux.
Je suis à la recherche d'un code qui en entrant les coordonnées géographiques exemple 48.259,4.334 , visualiserait la carte par l'intermédiaire de google maps ou mieux encore la carte dans une formes.
Est-ce que quelqu'un a travaillé le sujet afin de m'aiguiller ?
Au plaisir de vous lire.
d
ddetp88
Membre dévoué
Membre dévoué
Messages : 870
Appréciations reçues : 6
Inscrit le : 5 janvier 2015
Version d'Excel : 2016

Message par ddetp88 » 30 septembre 2019, 22:13

Je viens de trouver réponse à ma question.
Quelques détails pour les amateurs.
Merci à l'excellent Steelson auteur du topic https://forum.excel-pratique.com/viewtopic.php?f=2&t=122617
Je m'en suis inspiré pour mon projet.
J'ai mis cette procédure dans un module.
Sub VersGoogleMaps()
Dim N As Double, E As Double
With Sheets("Observation")
   If .[G12] <> "" Then
      N = Left([G12], InStr([G12], ",") - 1)
      E = Right([G12], Len([G12]) - InStr([G12], ","))
      ActiveWorkbook.FollowHyperlink "https://www.google.com/maps/place/" & N & "," & E
   End If
End With
End Sub
Dans la feuille Observation, j'ai en G12 les coordonnées séparées par une virgules. Exemple : 48.571,4.705

Encore merci à Steelson
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message