Discussion :

[sed13]

Bonjour,

Je travaille avec le site : https://maps.googleapis.com/maps/api/geocode/json?

et je veux convertir une liste des adresses en coordonnées GPS. mais je n'arrive pas à récupérer le contenu en vba.

J'ai essayé la commande IE.navigate, ca marche bien dans le sens ou j'ouvre le site et il me propose enregistrer le fichier, le problème c'est que je dois cliquer sur enregistrer manuellement et donc impossible d'automatiser le traitement.

J'ai passé deux jours a chercher une solution mais en vain et je dois rentre le projet demain fin de journée , merci pour votre aide

[Jean-Philippe André]

Salut,

as-tu regardé le tutoriel de qwazerty sur le pilotage de IE en VBA ?
http://qwazerty.developpez.com/tutor...-et-vba-excel/
https://www.developpez.net/forums/d1...lorer-via-vba/

[patricktoulon]

suite a ton MP
je t'ai commencer le travail une ebauche
et je ne recupere pas en JSON mais en xml c'est plus simple pour parser meme un simple split suffit

regarde le debug

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
Private Type point
latitude1 As String
longitude1 As String
latitude2 As String
longitude2 As String
End Type
Function get_GPS_POINT(lieu)
Dim p As point
Set reQ = CreateObject("microsoft.xmlhttp")
reQ.Open "GET", "http://maps.googleapis.com/maps/api/geocode/xml?" & "&address=" & lieu & "&sensor=false", False
reQ.send
'ici tu split le xml ou l'exploite avec un xmldocument en memoire
Debug.Print reQ.responsetext
End Function
Sub test()
get_GPS_POINT "le lieu ici le plus precis possible"
End Sub