Reverse geocoding Openstreetmap

**mikasara** · 19/05/2023, 18h21

Bonjour,
Je suis en train de tenter de créer un petit module sous vba afin de pouvoir convertir des coordonnées (latitude, longitude) en adresse avec OpenStreetMap. Le code fonctionne quand je saisis des nombres entiers mais malheureusement dès que je rentre des valeurs négatives ou des coordonnées non entières, j'obtiens des messages d'erreur de type "valeur" ou bien une erreur de type "impossible to geocode". Je souhaiterais bénéficier de votre aide afin que cela puisse fonctionner (cela ne fait pas longtemps que j'ai commencé à me mettre à Vba).

Nom : Erreurs reverse geocode.jpg
Affichages : 144
Taille : 69,4 Ko

Nom : Erreurs reverse geocode.jpg
Affichages : 144
Taille : 69,4 Ko

Voici mon code :
Function NominatimReverseGeocode(lat As Double, lng As Double) As String
On Error GoTo eh
Dim xDoc As New MSXML2.DOMDocument
xDoc.async = False
Url = "https://nominatim.openstreetmap.org/reverse?lat=" & lat & "&lon=" & lng
xDoc.Load (Url)
If xDoc.parseError.ErrorCode <> 0 Then
Application.Caller.Font.ColorIndex = vbErr
NominatimReverseGeocode = xDoc.parseError.reason
Else
xDoc.SetProperty "SelectionLanguage", "XPath"
Dim loc As MSXML2.IXMLDOMElement
Set loc = xDoc.SelectSingleNode("/reversegeocode/result")
If loc Is Nothing Then
Application.Caller.Font.ColorIndex = vbErr
NominatimReverseGeocode = xDoc.XML
Else
Application.Caller.Font.ColorIndex = vbOK
NominatimReverseGeocode = loc.Text
End If
End If
Exit Function
eh:
Debug.Print err. Description
End Function

**jurassic pork** · 19/05/2023, 18h40

Hello,
tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Url = "https://nominatim.openstreetmap.org/reverse?lat=" & _
      Replace(CStr(lat), ",", ".") & "&lon=" & Replace(CStr(lng), ",", ".")

Pour le 10 -20 qui ne fonctionne pas il y a peut-être des zones qui ne sont pas référencées dans OpenStreetMap (10 -5 fonctionne)

EDIT : 10 -20 se trouve en pleine mer au large de l'Afrique.

Ami calmant, J.P

**mikasara** · 19/05/2023, 19h09

Merci bcp pour cette réponse, malheureusement cela ne fonctionne toujours pas, j'ai remplacé le"." par des virgules et tenté plusieurs valeurs le dernières en date étant lat : "51,0839" et longitude : "-38,0503"; j'obtiens toujours le message d'erreur "unble to convert". Je suis très loin être un expert et là j'y perd complètement mon latin.

Mikael

**jurassic pork** · 19/05/2023, 19h15

je ne sais pas où tu vas chercher tes coordonnées mais

51,0839

-38,0503

se trouve aussi en pleine mer entre l'europe et l'amérique du nord et là il n'y a pas d'adresse

Pour tester les coordonnées , il suffit dans google maps dans la zone de recherche de rentrer les coordonnées ex 51.0839,-38.0503

**mikasara** · 19/05/2023, 19h36

Ce sont des coordonnées de bateau de pêche

Plus sérieusement c'est afin de tester mon code et j'ai rentré des coordonnées au hasard, pour le coup je viens de tester avec des coordonnées "terrestres" et.... ça fonctionne.
En revanche pour le coup tu m'as permis de mettre le doigt sur une problématique et cela m'interroge, Openstreet map ne remonte pas le nom de l'ocean ou de la mer sur lequel serait par exemple situé un navire dont je possèderait les coordonnées ou autre cas un avion qui survolerait l'Atlantique ?
Autre question et visiblement autre erreur de ma part : les coordonnées que j'ai sont avec des "." je dois donc les remplacer avec des "," ?
Je te remercie pour ton aide

Mikael

**jurassic pork** · 20/05/2023, 09h14

Hello,

Envoyé par mikasara

Openstreet map ne remonte pas le nom de l'ocean ou de la mer sur lequel serait par exemple situé un navire dont je possèderait les coordonnées ou autre cas un avion qui survolerait l'Atlantique ?

même le geocoding de google ne renvoie pas d'infos si le point n'est pas une adresse valide ( un point dans la mer n'a pas d'adresse) et même si il renvoyait l'information de mer on ne saurait pas trop où dans cette mer. Le mieux c'est de visualiser sur google maps les coordonnées au moins là on a une idée sur la position par rapport à des points terrestres.

Envoyé par mikasara

Autre question et visiblement autre erreur de ma part : les coordonnées que j'ai sont avec des "." je dois donc les remplacer avec des "," ?

cela dépend dans quel format sont des coordonnées dans la feuille Excel. Si c'est du texte il n'y a pas de problème , si c'est du numérique double dans un excel en français il faut transformer les , en . pour l'url à construire ce que fait le code que je t'ai montré.
Ami calmant, J.P

**mikasara** · 20/05/2023, 11h51

Merci bcp pour ces infos, ça marche parfaitement, ormis que les resultats sont affichés dans la langue du pays concerné, par exemple si un lieu est localisé en allemagne, le resultat apparait en allemand et non pas en français. Il y a pas pas un moyen pour renvoyer les infos dans une langue donnée ?

**jurassic pork** · 20/05/2023, 12h41

Envoyé par mikasara

Merci bcp pour ces infos, ça marche parfaitement, ormis que les resultats sont affichés dans la langue du pays concerné, par exemple si un lieu est localisé en allemagne, le resultat apparait en allemand et non pas en français. Il y a pas pas un moyen pour renvoyer les infos dans une langue donnée ?

Tu peux essayer le paramètre accept-language=fr-fr

exemple d'utilisation :
https://nominatim.openstreetmap.org/...&lat=30&lon=30

sans le paramètre :

30

مطروح, مصر

avec le paramètre :

30 30 Matruh, Égypte