Itinéraires google maps

[Manu62]

Bonjour à tous,

J'ai préféré ouvrir un fil que d'en suivre un autre concernant les calculs via google maps.

Lors des différents fils sur le sujet on voit toujours "intinéraires voiture" ou "a pied".

Est il possible soit avec google maps ou autre d'avoir la même chose mais pour un itinéraire en mode "camions".

En fait je fais quelque requete et comparaison, et evidemenent, mon problème et que les camions ne passent pas forcement au même endroit.

Quelqu'un à til déjà vu ce genre de sujet?

Merci à tous

Manu

 

[Compte Supprimé 979]

Re : Itinéraires google maps

Salut Manu62

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

A+

 

[Manu62]

Re : Itinéraires google maps

salut
Pense tu qu il ya une autre
possibilite

Bonne soiree

Manu

 

[Manu62]

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