Macro pour calculer la distance entre deux villes via google maps

platina · 4 Novembre 2008

Bonjour !

Je souhaite créer une macro utilisant google maps pour calculer la distance (via la route, et non à vol d'oiseau) entre deux villes ;
Disons que j'ai le nom ou code postal (ce qui rend la chose la plus simple!) de la première ville en A1 et le nom ou code postal de la seconde ville en A2.
Comment faire pour afficher la distance entre les deux en A3 ?

Merci beaucoup !!

mf1608 · 2 Avril 2020

Bonjour,

Avez-vous eu l’occasion de tester avec les codes postaux Belge ?

Merci d'avance.
bav.

Compte Supprimé 979 · 3 Avril 2020

mf1608 à dit:
Bonjour,
Avez-vous eu l’occasion de tester avec les codes postaux Belge ?
Merci d'avance.
bav.

Bonjour mf1608

Désolé, j'avais un petit souci avec ma clé API Google, je ne pouvais pas tester la dernière version

Maintenant, c'est chose faite et la dernière version fonctionne également pour nos amis Belge

Dernière version ICI : https://www.excel-downloads.com/thr...s-via-google-maps.106712/page-18#post-1040719

Au plaisir

mf1608 · 3 Avril 2020

BrunoM45 à dit:
Bonjour mf1608

Désolé, j'avais un petit souci avec ma clé API Google, je ne pouvais pas tester la dernière version

Maintenant, c'est chose faite et la dernière version fonctionne également pour nos amis Belge
Regarde la pièce jointe 1061022

Dernière version ICI : https://www.excel-downloads.com/thr...s-via-google-maps.106712/page-18#post-1040719

Au plaisir

Bonjour BrunoM45

un grand merci pour ton test. juste une question un peu bête... Il me faut un clé API, mais quelle API dois-je activer au niveau de Google ?

Merci.
Bien à toi.

Compte Supprimé 979 · 3 Avril 2020

Re,
C'est L'API Direction

Compte Supprimé 979 · 4 Avril 2020

Salut Tatiak
C'est marrant... il faut toujours que tu es la plus grosse

Compte Supprimé 979 · 4 Avril 2020

tatiak à dit:
?? je propose juste une alternative à ta bonne proposition (mais ici sans clé) et avec l'ajout une carte du chemin à prendre
Si ça gêne, je peux effacer mon message sur simple demande
??
Pierre

Non Pierre, tes contributions sont toujours très enrichissantes...
c'est juste ta façon de faire...

PEACHBIRD · 21 Avril 2020

Bonjour,

Après avoir lu les nombres page de ce sujet, je n'ai pas trouvé de réponse à mon problème.

Comment faire pour avoir l'affichage en décimal (2 décimal serait parfait) des km ?

Ci-dessous le script adapté à mon fichier.

Merci d'avance pour votre aide.

VB:

'====================
'Calcul des distances
'====================
Option Explicit
Public Const DIST = "http://www.distance2villes.com/recherche?source="
Sub Distance()
    Dim lg As Integer, i As Integer
    Dim Url As String, Txt As String, d, temps

    With Sheets("Facturation")
    ActiveSheet.Unprotect Password:="123"
    lg = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 17 To lg
        If Range("B" & i).Value <> "" And Range("B" & i).Value <> 0 Then
        Url = DIST & .Range("B" & i).Value & "&destination=" & .Range("C" & i).Value
        With CreateObject("WINHTTP.WinHTTPRequest.5.1")
            .Open "GET", Url, False
            .send
            Txt = .responseText
        End With
        .Range("E" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
    'en nombre
        .Range("E" & i).NumberFormat = "##,##"
        .Range("E" & i) = Val(Replace(.Range("E" & i), ",", ""))
    End If
    Next i
    ActiveSheet.Protect Password:="123"
End With
    MsgBox "Le calcul des KMs est terminé !"
End Sub

Audreyouyou · 9 Mai 2020

Bonjour @BrunoM45 et à tous les autres,
Merci beaucoup pour ton fichier.
J'ai utilisé le mode "Multi-Départs/Multi-Destinations" en rentrant les coordonnées GPS dans chaque feuille. Je suis embêtée car j'ai un message d'erreur qui s'affiche : "erreur d'exécution 438 : propriété ou méthode non gérée par cet objet". C'est la ligne suivante qui est surlignée en jaune dans le code :
Désactiver la checkbox de détail du parcours
CheckBox1.Value = False
Je pense que c'est un truc tout bête que je n'ai pas compris. Si c'est le cas, désolée pour ma question ! Je suis novice en macros et il se peut que j'ai mal compris quelque chose d'élémentaire dans le fonctionnement de ton fichier. J'ai cherché pas mal de temps en essayant de faire les autres modes, de passer par les adresses plutôt que par les points GPS, etc. mais je n'ai rien trouvé qui me permette de savoir ce que je dois faire pour résoudre cette erreur. D'où ce message
Bonne soirée,
Audrey

Compte Supprimé 979 · 10 Mai 2020

Bonjour Audrey,

Audreyouyou à dit:
Bonjour @BrunoM45 et à tous les autres,
Merci beaucoup pour ton fichier.
J'ai utilisé le mode "Multi-Départs/Multi-Destinations" en rentrant les coordonnées GPS dans chaque feuille. Je suis embêtée car j'ai un message d'erreur qui s'affiche : "erreur d'exécution 438 : propriété ou méthode non gérée par cet objet". C'est la ligne suivante qui est surlignée en jaune dans le code :
Désactiver la checkbox de détail du parcours
CheckBox1.Value = False

Est-ce bien mon fichier que tu utilises ?
As-tu bien le Checkbox dans la feuille "Itinéraire"

@+

Audreyouyou · 10 Mai 2020

BrunoM45 à dit:
Bonjour Audrey,

Est-ce bien mon fichier que tu utilises ?
As-tu bien le Checkbox dans la feuille "Itinéraire"
Regarde la pièce jointe 1066535

@+

Bonjour Bruno,
Oui c'est bien ton fichier. J'ai bien le Checkbox mais je ne peux pas la cocher, il apparaît comme une image que je peux juste déplacer avec ma souris.

Compte Supprimé 979 · 10 Mai 2020

Re

Quelle version de Windows et d'Excel as-tu ?

Audreyouyou · 10 Mai 2020

J'ai un Mac avec l'OS 10.15.3
Et la version 16.36 d'Excel (licence achetée en 2019)

Compte Supprimé 979 · 10 Mai 2020

Re,

Ceci explique cela les objets ActiveX ne sont pas gérés par les Mac

Il faudra remplacer l'image par une cellule nommer Checkbox1, dans laquelle tu mettras VRAI au départ (à vérifier)

@+

Audreyouyou · 10 Mai 2020

Ah mince ok ! Merci d'avoir regardé en tous cas et d'avoir pris le temps de me répondre !
Je vais essayer de voir comment faire pour modifier le code alors

gwank · 21 Octobre 2020

mapomme à dit:
En attendant le retour de l'auteur (@tatiak que je salue respectueusement ), essayez le code suivant:

Bonjour,
J'utilise actuellement ce fichier, mais il y a souvent des "erreur d'exécution '9'" pour de multiples raisons.
Serait-il possible de rentrer les coordonnées GPS plutôt que le nom de la ville ?

En vous remerciant

Macro pour calculer la distance entre deux villes via google maps

platina

XLDnaute Nouveau

mf1608

XLDnaute Nouveau

Compte Supprimé 979

Guest

mf1608

XLDnaute Nouveau

Compte Supprimé 979

Guest

Compte Supprimé 979

Guest

Compte Supprimé 979

Guest

PEACHBIRD

XLDnaute Nouveau

Audreyouyou

XLDnaute Nouveau

Compte Supprimé 979

Guest

Audreyouyou

XLDnaute Nouveau

Compte Supprimé 979

Guest

Audreyouyou

XLDnaute Nouveau

Compte Supprimé 979

Guest

Audreyouyou

XLDnaute Nouveau

gwank

XLDnaute Nouveau

Discussions similaires