burger0715
XLDnaute Nouveau
Bonjour !
Je voudrais solliciter votre aide, je souhaite trouver automatiquement les coordonnées d'une ville juste en ayant son nom grâce à OpenStreetMap (je peux pas utiliser d'API). J'ai trouvé un tuto pour le faire mais le problème c'est qu'il utilise InternetExplorer, or je ne sais pas si c'est parce qu'IE à fermé le 15 juin dernier, mais OPS(OpenStreetMap) ne marche plus dessus. J'aimerais donc utiliser GoogleChrome à la place mais c'est vraiment plus compliqué à priori et je n'arrive pas à adapter le code.
Si quelqu'un à une idée de comment faire ça m'aiderait beaucoup, merci d'avance !
NB : Voici le vba
Je voudrais solliciter votre aide, je souhaite trouver automatiquement les coordonnées d'une ville juste en ayant son nom grâce à OpenStreetMap (je peux pas utiliser d'API). J'ai trouvé un tuto pour le faire mais le problème c'est qu'il utilise InternetExplorer, or je ne sais pas si c'est parce qu'IE à fermé le 15 juin dernier, mais OPS(OpenStreetMap) ne marche plus dessus. J'aimerais donc utiliser GoogleChrome à la place mais c'est vraiment plus compliqué à priori et je n'arrive pas à adapter le code.
Si quelqu'un à une idée de comment faire ça m'aiderait beaucoup, merci d'avance !
NB : Voici le vba
VB:
Function coordonneesGPS(URL As String)
Dim web As Object
Set web = CreateObject("InternetExplorer.Application")
web.navigate URL
Do While web.busy And web.readyState <> 4
DoEvents
Loop
pause (1)
coordonnesGPS = web.locationUrl
web.Quit
End Function
Sub pause(duree As Double)
Dim finPause As Double
finPause = Timer + duree
Do While Timer < finPause
DoEvents
Loop
End Sub