Macro pour calculer la distance entre deux villes via google maps

[platina]

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

 

[flap86]

Re : Macro pour calculer la distance entre deux villes via google maps

J'ai exactement le même problème que pael!

 

[flap86]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour! Le fichier à l'air vraiment super, c'est exactement ce que je cherchais.
Par contre qd je lance la macro il me met un message d'erreur concernant les lignes suivantes:

With Sheets("Itinéraire")
.Range("TotalKm").Value = Distance(0)
.Range("TotalDurée").Value = Durée

Pourriez vous m'aider?

 

[piga25]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Pael et Flap86,

Le fichier de Juan est protégé (macro) donc pas moyen de le modifier. Par contre je ne sais pas s'il est seulement valable que pour une période définie, ce qui me semble le plus probable.
Vous trouverez ici le lien pour un fichier similaire et totalement ouvert, aucune protection. il est de BrunoM45.

 

[flap86]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Piga25!

merci pour ta réponse!
j'ai fini par tombée sur le fichier de BrunoM45 et il correspond exactement à ce que je cherche.
par contre lorsque je lance le calcul de l'itinéraire il me met un message d'erreur dans le script : 'erreur d'exécution '9' '

Pourrais tu m'aider?

Merci d'avance

 

[piga25]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Flap86

Je n'ai aucune erreur sur le fichier version 1.5.1 du post #326 de BrunoM45.
Il y a le même fichier mais en version 1.5 sur le post #323

Pour calculer l'itinéraire : renseigner les cellules C1 à C4 puis cliquer sur calculer itinéraire.
Pour calculer une liste d'itinéraire: renseigner le tableau de l'onglet adresse puis ensuite renseigner les cellules C1à C2 puis cliquer sur inserer adresse. Si erreur mettre en C3 et C4 la première adresse de la liste puis cliquer sur inserer adresse.

 

[pael]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Flap86

Je n'ai aucune erreur sur le fichier version 1.5.1 du post #326 de BrunoM45.
Il y a le même fichier mais en version 1.5 sur le post #323

Pour calculer l'itinéraire : renseigner les cellules C1 à C4 puis cliquer sur calculer itinéraire.
Pour calculer une liste d'itinéraire: renseigner le tableau de l'onglet adresse puis ensuite renseigner les cellules C1à C2 puis cliquer sur inserer adresse. Si erreur mettre en C3 et C4 la première adresse de la liste puis cliquer sur inserer adresse.

Merci pour ces explications si précieuses !

 

[pael]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Piga25!

merci pour ta réponse!
j'ai fini par tombée sur le fichier de BrunoM45 et il correspond exactement à ce que je cherche.
par contre lorsque je lance le calcul de l'itinéraire il me met un message d'erreur dans le script : 'erreur d'exécution '9' '

Pourrais tu m'aider?

Merci d'avance

J'ai le même message que toi 'erreur d'exécution '9'' mais seulement quand "inscrire le détail du parcours" est décoché !

 

[flap86]

Re : Macro pour calculer la distance entre deux villes via google maps

super pael! effectivement je n'ai plus de message d'erreur qd je coche 'inscrire le détail du parcours'!

 

[juan64]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour,

Le fichier de calcul d'itinéraires multiples est à jour.
Lien de téléchargement : www.vba.c.la


Juan64
www.vba.c.la

 

[Compte Supprimé 979]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour Juan64,

Comme le code de ton fichier n'est pas ouvert à tous ...
merci de poster dans la section téléchargement et non sur le forum

Cordialement.

 

[JNP]

Re : Macro pour calculer la distance entre deux villes via google maps

Re , salut Bruno ,

Bonjour,

Le fichier de calcul d'itinéraires multiples est à jour.

Juan64

6 à 8 mois pour mettre à jour ton fichier
https://www.excel-downloads.com/thr...nce-entre-deux-villes-via-google-maps.106712/
Je ne sais pas pourquoi, mais ça me donne l'impression que tu as attendu que tout te soit décortiqué ici ...
...
Bon WE

 

[david84]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour tout le monde,
félicitations à toi Bruno pour le fichier proposé.
Un 1er retour :
lorsque je nettoie le tableau, le code plante à :

Sub Nettoyage()
Dim DLigIti As String

' Effacer l'itinéraire précédent si existant
With Sheets("Itinéraire")
    .Range("DepAdr").ClearContents
    .Range("DepVille").ClearContents
    .Range("FinAdr").ClearContents
    .Range("FinVille").ClearContents
    [COLOR="#ff00ff"].Range("Requete").ClearContents 'plantage[/COLOR]
    .Range("TotalKm").ClearContents
    .Range("TotalDurée").ClearContents
    .Range("LienMap").Hyperlinks.Delete
    DLigIti = .Range("D" & Rows.Count).End(xlUp).Row
    If DLigIti > 1 Then
      .Range("D2:H" & DLigIti + 1).ClearContents
    End If
End With
Calculate
End Sub

J'ai tenté de regarder à quoi correspondait cette plage mais je ne l'ai pas trouvé. Aurais-tu modifié le nom de cette plage si celle-ci correspond à une plage nommée ?
Il y a bien une plage nommée "Requete_GoogleMaps_20" et une autre "NbRqt"...

Sinon, reste l'histoire du dictionnaire que chacun peut enrichir mais le traitement n'est pas évident en l'état actuel. J'ai regardé ce que cela faisait en passant le LookAt de Find à XlPart, mais rien de concluant... j'ai regardé également du côté du traducteur en le lançant après avoir "désactivé ta fonction Traduire mais la traduction là encore ne semble pas au point...
Bon, ceci-dit, l'activation du lien Maps fournit un texte traduit correctement donc, tout va bien.
Encore une fois merci pour ce fichier.
A+

 

[Compte Supprimé 979]

Re : Macro pour calculer la distance entre deux villes via google maps

Salut David84,

félicitations à toi Bruno pour le fichier proposé.

Merci beaucoup, mais on peut également féliciter Piga25 qui à mis la main à la pate
et que je remercie

As-tu téléchargé la dernière version sur ce fil https://www.excel-downloads.com/thr...nce-entre-deux-villes-via-google-maps.106712/

Le code de traduction est vraiment des plus basique et peux effectivement poser des problèmes de traduction

A+

 

[piga25]

Re : Macro pour calculer la distance entre deux villes via google maps

Bonjour David84

Dans la macro Nettoyage je pense qu'il faut remplacer cette ligne :

.Range("Requete").ClearContents

par celle-ci :

.Range("NbRqt").ClearContents

NbRqt correspond à la cellule H1 de la feuille "Itinéraire"

 

[david84]

Re : Macro pour calculer la distance entre deux villes via google maps

Re
@Bruno : oui c'est cette version
@Piga : je me doutais que c'était par cette ligne que je devais remplacer

.Range("Requete").ClearContents

mais c'était surtout pour signaler le bug.
A+