Comment récupérer le contenu d'une page web (Json), avec VBA EXCEL

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

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/

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:

---

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

---