Autres calcul distance avec google map et vba excel 2007

[charente]

bonjour
Je cherche a calculer la distance entre 2 villes en france avec Excel 2007.
j'ai trouvé un tuto sur le net

Sub Test()
Sheets("Feuil2").Cells.Clear
Depart = Sheets("Feuil1").Range("B1")
Arrivee = Sheets("Feuil1").Range("B2")
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Feuil2").Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With

Set Result = Sheets("Feuil2").Cells.Find("Itinéraire en voiture")
If Result Is Nothing Then
Sheets("Feuil1").Range("A5") = "Itinéraire non trouvé !"
Else
Sheets("Feuil1").Range("A5") = Result.Offset(1, 0)
km = Split(Result.Offset(1, 0), " km")
Sheets("Feuil1").Range("A6") = km(0)
End If

End Sub

probleme sur la feuille 2 il me retourne un probleme avec java (qui est déja activé)
si une ame charitable avait une solution, ou autre formule

objectif entrer, ville départ , ville arrivé , retour nombre de KM, si possible temps
merci a vous
et Bonne Année et surtout Bonne Santé

 

[sylvanu]

Bonjour Charente,
Un exemple en PJ extrait du site http://tatiak.canalblog.com/.
Donne distance et temps entre deux adresses.

 

[charente]

Bonjour Charente,
Un exemple en PJ extrait du site http://tatiak.canalblog.com/.
Donne distance et temps entre deux adresses.

Merci sylvanu
un bonne exemple, mais qui plante facilement (debordement), et qui ne connait pas toutes les villes de France.
a approfondir

 

[sylvanu]

Il utilise les données de http://www.distance2villes.com/ , je ne sais pas s'il manque des points.
Pour toutes les villes que j'ai essayé, ça a marché. Mais je me suis limité aux grandes métropoles.

 

[sylvanu]

Peut être une piste avec Google MAPS :

Recherche de distances kilométriques - Google Maps ou autre

Savez-vous s’il existe la possibilité au travers d’Excel d’aller chercher la distance kilométrique entre deux localités ou adresses sur des sites comme Googl...

forum.excel-pratique.com

Création d'un tableau Excel pour devis

A la base, je recherché des formules pour trouver le nombre de km entre un point A et un point B. J'ai trouver un fichier qui correspond en partie à ce que j...

forum.excel-pratique.com