Bonjour à tous.
Voici un fichier Excel ci-joint qui calcule par une macro la distance entre 2 villes en kilomètres avec itinéraire en voiture.
Quelqu'un pourrait-il ajouter la fonctionnalité 'Éviter les sections à péage' en tout temps.. sans rien changer d'autre. le fichier sera utilisé pour des villes québécoises.
Pour faciliter le tout j'ai copié ci-dessous le code de la macro actuelle:
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
Merci d'avance de votre gentillesse.
YvonR
Montréal, Québec, Canada
Voici un fichier Excel ci-joint qui calcule par une macro la distance entre 2 villes en kilomètres avec itinéraire en voiture.
Quelqu'un pourrait-il ajouter la fonctionnalité 'Éviter les sections à péage' en tout temps.. sans rien changer d'autre. le fichier sera utilisé pour des villes québécoises.
Pour faciliter le tout j'ai copié ci-dessous le code de la macro actuelle:
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
Merci d'avance de votre gentillesse.
YvonR
Montréal, Québec, Canada