Fonction convertion adresses postal GPS

**vwtroudy** · 21/09/2016, 15h50

Bonjour,

J'ai testé la fonction disponible via cette url : http://grindgis.com/software/microso...cel-and-google ; qui permet de transformer une adresse postal en coordonnée GPS depuis une fonction implémentée dans excel, mon problème est que j'aimerai faire l'inverse conversion de la longitude+latitude en adresse postale,

Avez-vous des idées??

Merci

**patricktoulon** · 21/09/2016, 16h19

Bonjour
j'avais repris pour un autre demandeur la présentation de ce sheets qui fonctionnait avec l'api Google

sauf que cet api n'a pas vraiment été mis ajour depuis et elle est remplie de bug

alors j'ai fait la même chose avec une requête
voici la demo en image
Nom : demo2.gif
Affichages : 6580
Taille : 545,1 Ko

Nom : demo2.gif
Affichages : 6580
Taille : 545,1 Ko

on a donc le départ ( adresse point gps) :la destination (adresse, point gps) en cellule c9:c10 et c12:c13
entre les deux tu a l'adresse inverse avec les point gps qui te donneront l'adresse

fichier en piece jointe
bonne route

**vwtroudy** · 22/09/2016, 08h44

Merci patrick,
Mais tu n'aurais pas une version simple??

En A1 j'ai la latitude en B1 j'ai la longitude et je veux en C1 le N° et la rue / D1 le code postal / E1 la ville

Merci

**Menhir** · 22/09/2016, 10h07

Le problème, c'est que l'adresse postale est plus précises (mathématiquement parlant) que l'adresse GPS.
Je veux dire qu'il est possible de créer une base de données qui, pour chaque adresse postale donne une adresse GPS.

Le contraire est plus compliqué. Parce que, sauf coup de bol improbable, il est vraisemblable que l'adresse GPS que tu mettras en entrée pour avoir ta conversion ne sera pas celle se trouvant exactement dans la base de données.
Donc, il faudrait faire une recherche de la position la plus proche de celle donnée, chose qui n'est pas très compliqué avec une seule valeur (valeur absolue de la différence des deux) mais se complique avec une paire de valeurs (théorème de Pythagore).

Bref, je ne pense pas que tu ais réellement pris conscience de la complexité de ce que tu demandes.

Envoyé par vwtroudy

Mais tu n'aurais pas une version simple??

**Marc-L** · 22/09/2016, 13h20

Bonjour !

Envoyé par vwtroudy

Mais tu n'aurais pas une version simple?

Une bonne base récupérant déjà le code postal dans cette discussion !

Reste à décoder la suite de la même manière ou directement à partir d'un objet JSON …
Quoiqu'il y a déjà tout dans le champ "formatted_address" !

_________________________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

**vwtroudy** · 22/09/2016, 16h19

d'accord avec vous, mais en voyant cette vidéo, c'est alléchant!

**Marc-L** · 22/09/2016, 20h41

Pas plus alléchant comparativement au code de Patrick ni même à mon lien, Bang ou Gogole, même combat ‼

**cerede2000** · 23/09/2016, 13h22

Hum hum, bizarre ce fonctionnement en effet !

**patricktoulon** · 23/09/2016, 13h37

re
tu a vu la version xml de vwtroudy c'est pas mal du tout
je l'ai reprise en late binding pour la transportabilité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test_en_XML()
    MsgBox getAddress("43.120337,5.969046")
End Sub
 
Function getAddress(points)
    Dim strAddress As String
    'define XML and HTTP components
    Dim googleResult As Object, googleService As Object
    'Dim oNodes As MSXML2.IXMLDOMNodeList
    'Dim oNode As MSXML2.IXMLDOMNode
    Set googleService = CreateObject("MSXML2.XMLHTTP")
    Set googleResult = CreateObject("MSXML2.DOMDocument")
    googleService.Open "GET", "http://maps.googleapis.com/maps/api/geocode/xml?latlng=" & points, False
    googleService.setRequestHeader "DNT", "1"
    On Error Resume Next
    googleService.send
       googleResult.LoadXML (googleService.responseText)
    getAddress = googleResult.getElementsByTagName("formatted_address").Item(0).Text
End Function

**patricktoulon** · 23/09/2016, 15h08

voila maintenant on a les deux

lieu to points gps:
sans true dans lappel on a pas l'adresse complete format postal c'est optional

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Option Explicit
'MODEL D URL :   http://maps.googleapis.com/maps/api/geocode/xml?address=" & lieu & " &sensor=false
Sub test_en_XML()
'ON OBTIENT LES POINT  GPS AVEC L'ADRESSE
    MsgBox getpoint_GPS_By_XML("chemin de forgentier  toulon ", True)
End Sub
Function getpoint_GPS_By_XML(LIEU, Optional complet As Boolean = False)
    Dim latitude As String, longitude As String, additems As Object, adresse As String
    'define XML and HTTP components
    If Not IsNumeric(Left(LIEU, 1)) Then LIEU = "0 " & LIEU    ' pour pouvoir formaté l'adresse complete  il me faut 6 item (long name) dans le document xml
    Dim googleResult As Object, googleService As Object, i As Integer
    'Dim oNodes As MSXML2.IXMLDOMNodeList,oNode As MSXML2.IXMLDOMNode
    Set googleService = CreateObject("MSXML2.XMLHTTP")
    Set googleResult = CreateObject("MSXML2.DOMDocument")
    googleService.Open "GET", "http://maps.googleapis.com/maps/api/geocode/xml?address=" & LIEU  &"&sensor=true", False
    googleService.setRequestHeader "DNT", "1"
    On Error Resume Next
    googleService.send
    Debug.Print googleService.responseText
    googleResult.LoadXML (googleService.responseText)
    latitude = googleResult.getElementsByTagName("lat")(0).Text
    longitude = googleResult.getElementsByTagName("lng")(0).Text
    getpoint_GPS_By_XML = latitude & "," & longitude
    'OPTIONEL  (PEUT ETRE SUPPRIME)
    If complet = True Then
        Set additems = googleResult.getElementsByTagName("long_name")
        If Val(additems(0).Text) > 0 Then adresse = additems(0).Text & " "
        adresse = adresse & " " & additems(1).Text & vbCrLf
        adresse = adresse & " " & additems(additems.Length - 1).Text & " " & additems(2).Text & vbCrLf
        adresse = adresse & " " & additems(3).Text & " / " & additems(4).Text & vbCrLf
        adresse = adresse & additems(5).Text
        getpoint_GPS_By_XML = getpoint_GPS_By_XML & vbCrLf & adresse
    End If
End Function

point to lieu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Option Explicit
Sub test_en_XML()
    'ON OBTIENT L'ADRESSE AVEC LES POINT GPS
    MsgBox getAddress_By_point_gps_XML("43.120337,5.969046")
End Sub
Function getAddress_By_point_gps_XML(points)
    Dim strAddress As String
    'define XML and HTTP components
    Dim googleResult As Object, googleService As Object
    'Dim oNodes As MSXML2.IXMLDOMNodeList,oNode As MSXML2.IXMLDOMNode
    Set googleService = CreateObject("MSXML2.XMLHTTP")
    Set googleResult = CreateObject("MSXML2.DOMDocument")
    googleService.Open "GET", "http://maps.googleapis.com/maps/api/geocode/xml?latlng=" & points & "&sensor=true", False
    googleService.setRequestHeader "DNT", "1"
    On Error Resume Next
    googleService.send
       googleResult.LoadXML (googleService.responseText)
    getAddress_By_point_gps_XML = googleResult.getElementsByTagName("formatted_address").Item(0).Text
End Function

voila bien plus pratique en XML

**patricktoulon** · 24/09/2016, 11h51

Marc ton exemple en post 24 ne fonctionne pas chez moi il transforme le point en virgule dans l'url

**cerede2000** · 22/09/2016, 10h12

Google propose dans ses API la récupérations d'adresses via coordonnées GPS.

Mais comme le dit Menhir et comme le retourne l'API, il y a plusieurs adresse retournées pour un couple de coordonnées.
Car dans le même esprit, prenons en exemple un pâté de maison, si la coordonnée indiqué est pile poil au milieu de ce pâté, quelle adresse doit être retournée ?
Si ce pâté est carré bordé de 4 routes différentes alors tu as 4 adresses possibles !

Après tu peux partir sur la récupération de toutes adresses qui correspondent à la position.

**patricktoulon** · 22/09/2016, 10h36

re
un version simple !!
ca n'existe pas

comme te la dit cerede un même point gps peut te donner plusieurs point

d'ailleur !!
fait le test
tape dans le fichier un dep et destination lance la requête

récupère les point de destination
et colle les dans Google maps
mais avants tape f12 et commence l'enregistrement réseaux
une fois cela fait et que tu ton map regarde l'inspecteur
va a detail
et cherche le plus petit nom suivi de ".js" clique sur "corps de réponse tu aura tout ses points

voila

**cerede2000** · 23/09/2016, 09h10

Petit exemple vite fais avec un objet scriptcontrol pour traiter l'objet JSON :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function getAddress()
    Dim REQ As Object, url As String
 
    Dim json As String
    Dim sc As Object
    Dim o
 
    Set REQ = CreateObject("MSXML2.XMLHttp")
    REQ.Open "GET", "http://maps.googleapis.com/maps/api/geocode/json?latlng=47.393654,0.680525", False
    REQ.setRequestHeader "DNT", "1"
    On Error Resume Next
    REQ.send
    On Error GoTo 0
    If REQ.Status = 200 Then
        Set sc = CreateObject("MSScriptControl.ScriptControl")
        sc.Language = "JScript"
 
        json = REQ.responseText
 
        sc.Eval "var obj=(" & json & ")"
        sc.AddCode "function getAddressResult(){return obj.results.length;}"
        sc.AddCode "function getAddress(i){return obj.results[i];}"
 
        Debug.Print sc.Run("getAddressResult")
 
        Set o = sc.Run("getAddress", 0)
        Debug.Print o.formatted_address
    End If
End Function

**patricktoulon** · 23/09/2016, 10h26

Bonjour
joli!! cerede ca me plait beaucoup les fonctions JavaScript

je ne savais pas que l'on pouvais retourner les object dans un JSON aussi facilement même en JavaScript
je vais tester

edit: chez moi ca fonction pas erreur getaddress est vise
je suis même étonné que ca fonctionne ailleurs

ton eval
dans javascript tu met le code source du json
problème json tel qu'el est un string
malheureusement certain symbole du script vont être interprété comme balise de script et donc walouh !!! non???

**patricktoulon** · 23/09/2016, 10h40

re
autant pour moi ca viens peut etre pas du script tout du moins pas le JavaScript

j'ai a la place un json me disant que j'ai fait trop de requêtes et on est limité visiblement
alors que j'en ai fait qu'une

Nom : Capture.JPG
Affichages : 6120
Taille : 203,7 Ko

**patricktoulon** · 23/09/2016, 10h44

je viens de retester la mienne pour les trajet et elle fonctionne

donc je pense que dans le tienne il doit manquer le header de la requete c'est pour cela que ca moufte

**patricktoulon** · 23/09/2016, 10h52

bon j'ai floppé mo IP et c'est reparti
c'est bizarre ce truc

**cerede2000** · 23/09/2016, 10h35

Ben écoute chez moi ça fonctionne très bien....
Je l'ai déjà utilisé à plusieurs reprises pourtant.

**cerede2000** · 23/09/2016, 11h21

Ah !!!

Et en plus on peux même passer par Prototype ce qui est top !

Code :

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

1
2
sc.AddCode "Object.prototype.getItem=function(i) { return this[i] };"
Debug.Print i.getItem(0).formatted_address

Fonction convertion adresses postal GPS

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager