Itinéraires google maps

Re : Itinéraires google maps

Salut Manu62

Google maps ne permet pas d'autre option que Voiture / A pied
voilà pourquoi 😉

A+

Re : Itinéraires google maps

salut
Pense tu qu il ya une autre
possibilite

Bonne soiree

Manu

Re : Itinéraires google maps

Bonjour à tous,

Visiblement, j'aurais une piste sur ce site pour le calcul d'itinéraires.

Sanef - Concession et exploitation de rseaux d'autoroute

Quelqu'un pourrait il me donner un petit coup pouce à adapter face à google maps.

Je cherche à mettre en option "poids lourds" et sur le site de sanef....

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.

Manu