Discussion :

[vwtroudy]

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]

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


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]

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]

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.

Mais tu n'aurais pas une version simple??

[cerede2000]

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]

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

[Marc-L]

Bonjour !

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]

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

[Marc-L]

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

[patricktoulon]

re
de toute façon c'est un casse tète chinois ce truc

quand je récupère les point gps avec l'adresse
et que je réinjecte les point gps ca me donne une adresse proche
quand on regarde bien pendant la recherche il y a conversion et modification des point gps sur Google alors parti de la je cherche même pas

[cerede2000]

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]

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???

[cerede2000]

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

[patricktoulon]

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

[patricktoulon]

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]

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

[cerede2000]

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

[patricktoulon]

oui aussi !!

je suis en train de chercher a faire une récursivité
j'explique
ce qui est étonnant c'est que quand on tape une adresse avec cet api dans mon model on a les points
quand on tape les point on en a une autre puis X autreS "aproximate"
je voudrais parti de la fin repartir sur les aproximate
en gros réinjecter les aproximate pour en obtenir les adresse juste pour voir si l'adresse de départ s'y trouve

[patricktoulon]

tiens cerede regarde dans le debug
le satelite Google souffre d'astigmathie

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
36
37
38
39
40
41
42
43
44
Sub test()
   ces points de départ m'on été donné par Google avec l'adresse" 34 boulevard de la roseraie a toulon " dans mon model trajet  
getAddress "43.120337,5.969046", True
End Sub
 
Function getAddress(points, Optional multi As Boolean = False)
    Dim REQ As Object, url As String, json As String, sc As Object, o
    Set REQ = CreateObject("MSXML2.XMLHttp")
    REQ.Open "GET", "http://maps.googleapis.com/maps/api/geocode/json?latlng=" & points, 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")
        On Error GoTo suite
        Set o = sc.Run("getAddress", 0)
        Debug.Print o.formatted_address
        'Debug.Print json
        If multi = True Then
            tabltlg = Split(json, "lat"" :")
            For i = 1 To UBound(tabltlg)
                Point = Replace(Split(tabltlg(i), "}")(0), " ", "")
                Point = Replace(Replace(Point, """lng"":", ""), Chr(10), "")
                tabltlg(i) = Point
            Next
            rempile tabltlg
        End If
suite:
        Err.Clear
    End If
End Function
 
Sub rempile(tableau)
    For i = 1 To UBound(tableau)
        getAddress tableau(i), False
    Next
End Sub

dans les adresse obtenue la plus proche c'est la plus vague
Unnamed Road, 83200 La Valette-du-Var, France a peu pres 120 kilometre ² de superficie
et le must c'est que l'adresse de départ et dans la commune voisine
je dis LOL!!!!

[vwtroudy]

En détournant la fonction initiale, ça marche pas trop mal

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
 
Function GpsToAddress(strLatitude As String, strLongitude As String) As String
  Dim strQuery As String
  Dim strAddress As String
  'Assemble the query string
  strQuery = "http://maps.googleapis.com/maps/api/geocode/xml?"
  strQuery = strQuery & "latlng=" & strLatitude & "," & strLongitude
 
  'define XML and HTTP components
  Dim googleResult As New MSXML2.DOMDocument
  Dim googleService As New MSXML2.XMLHTTP
  Dim oNodes As MSXML2.IXMLDOMNodeList
  Dim oNode As MSXML2.IXMLDOMNode
 
  'create HTTP request to query URL - make sure to have
  'that last "False" there for synchronous operation
  googleService.Open "GET", strQuery, False
  googleService.send
  googleResult.LoadXML (googleService.responseText)
  GpsToAddress = googleResult.getElementsByTagName("formatted_address").Item(0).Text
 
End Function