XL 2019 Tranformer des coordonnées GPS en adresses postales

[alinco]

Bonjour à tous,

Existe-t-il un moyen de convertir en masse des coordonnées GPS (long & Lat) provenant de deux colonnes Excel en adresses postales sur une 3ème colonne (N°, rue, CP, ville) ??

Merci de votre aide

 

[Dranreb]

Bonjour.
Cherchez dans l'explorateur d'objets. Peut être une mise à jour Windows a-t-elle donné un nom différent à ce type d'objet de la bibliothèque MSXML2 ? À tout hasard XMLHTTP60 par exemple ? Ou bien retapez juste un point sur '.XMLHTTP' sélectionné, pour qu'il vous propose la liste des membres qui y existent, vu que c'est justement le plus gros intérêt des liaisons anticipées. Je crois que c'est ça. C'est tellement le bordel ces bibliothèques là, qu'ils ont dû ajouter la version derrière les types d'objets parce qu'ils se sont heurtés à des problèmes d'incpompatibilités descendantes entre versions successives.

 

[ralph45]

...ou bien retapez juste un point sur '.XMLHTTP' sélectionné, pour qu'il vous propose la liste des membres qui y existent, vu que c'est justement le plus gros intérêt des liaisons anticipées. Je crois que c'est ça...

Quel flair,@Dranreb !
C'était ce "point" qui ne convenait pas !

Effectivement, avec la MAJ d'Office360, il y a pas mal de choses qui ont évolué.
J'ai hâte de découvrir la fameuse fonction RECHERCHEX, entre autres...

NB : je laisse la solution à qui cela pourrait intéresser :

Function DicoRéponse(ByVal Site As String) As Dictionary
Dim XHR As New MSXML2.XMLHTTP60
XHR.Open "GET", Site, False
XHR.send
Set DicoRéponse = DicoJS(XHR.ResponseText)
End Function

Un grand merci et bonne journée !

 

[lcoulon]

Bonjour,

Avez vous trouvé pourquoi VBA renvoi une erreur malgré les fichiers de libraries bien cochés ?

Merci à vous,

 

[Dranreb]

Bonsoir.
Un peu vague votre question. Il y a une erreur si on spécifie un membre qui n'existe pas dans une librairie. À vérifier dans l'explorateur d'objets. Ou aussi si la variable objet n'est pas initialisée.

 

[VinceDis]

Bonjour,

@Dranreb

Petit déterrage, juste pour vous remercier pour le boulot et le fichier mis à dispo. (et @ralph45 pour la correction/maj)

Vince

 

[Mehdi K]

Je me joins aux louanges et déterre à nouveau ce topic: formidable morceaux de code, merci à vous @Dranreb

 

[Dranreb]

Merci, mais j'avais déjà trouvé tout ça de mon coté. Je vais essayer de me passer du ScriptControl.Eval. Ça devrait être possible car responseText n'est jamais qu'une propriété String.
Plutôt que de faire renvoyer à la fonction un Object dont on n'a aucune idée de ce qu'on peut tirer, autant lui faire renvoyer un tableau contenant les infos. Ou à la réflexion peut être plutôt un Dictionary de la scrrun.dll.