[VBA] Trajet maps avec une voiture

[Amandine]

Bonjour,

J'ai actuellement adapté un code me permettant de récupérer un trajet de Google maps et d'en extraire les infosqu'il me faut.
Cependant, parfois il me prend en compte les trajets avec le métro ou même à pied pour des distances très courtes.
Je voulais ainsi savoir comment modifier le code pour avoir l'itinéraire pour voiture seulement.

Actuellement j'ai la partie :
xLien = "Google Maps" & xAdresse_Start(xInc_Collecte) & "," & xCPVille_Start(xInc_Collecte) & "&daddr=" & xAdresse_End(xInc_Collecte) & "," & xCPVille_End(xInc_Collecte)
Sht_Tournee.Cells(xI, xJ).Select
Sht_Tournee.Hyperlinks.Add Anchor:=Cells(xI, xJ), Address:=xLien, TextToDisplay:="Maps"

Je penses qu'il faut modifier la partie en gras mais je ne sais pas comment

Merci d'avance à tous

 

[Aimo Rauidos dit AieAie]

Re : [VBA] Trajet maps avec une voiture

sujet en double Cordialement.



"la constipacion no es tu amigo"

 

[Amandine]

Re : [VBA] Trajet maps avec une voiture

Auriez vous le lien de cette discussion svp?

 

[grisan29]

Re : [VBA] Trajet maps avec une voiture

bojour amandine ,Aimo Rauidos dit aie aie et le forum

amandine relit les post et tu trouverai celui dont parle Aimo https://www.excel-downloads.com/threads/vba-trajet-maps-avec-une-voiture.233486/

Pascal

 

[Amandine]

Re : [VBA] Trajet maps avec une voiture

Merci je vais voir ca

 

[Amandine]

Re : [VBA] Trajet maps avec une voiture

Ok désolé pour le double message...
Je ne sais pas comment enlever l'autre...

Cependant avez-vous une solution pour mon problème?

 

[Amandine]

Re : [VBA] Trajet maps avec une voiture

Bonjour,

Je me permet de vous relancer pour savoir si quelqu'un peut modifier ce code (les liens plus précisément) pour rechercher un trajet uniquement en voiture et non global.
Voici le code de base :

'Inscrire le lien Hypertexte
xLien = "http://maps.google.fr/maps?f=d&saddr=" & xAdresse_Start(xInc_Collecte) & "," & xCPVille_Start(xInc_Collecte) & "&daddr=" & xAdresse_End(xInc_Collecte) & "," & xCPVille_End(xInc_Collecte) & "//data=!3m1!4b1!4m14!4m13!1m5!1m1!1s0x47e665e2fb88220f:0xc9c4a09a91102fae!2m2!1d2.2698953!2d48.9361187!1m5!1m1!1s0x47e66dbe69a429b7:0x65e24f4527cccad3!2m2!1d2.3955613!2d48.8771099!3e0"
Sht_Tournee.Cells(xI, xJ).Select
Sht_Tournee.Hyperlinks.Add Anchor:=Cells(xI, xJ), Address:=xLien, TextToDisplay:="Maps"
With Selection
.Font.Name = "Century Gothic"
.Font.Size = 8
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With

'Création de la requète web pour l'API
xRqtWeb = "URL;http://maps.google.fr/maps/api/directions/json?origin=" & xAdresse_Start(xInc_Collecte) & "," & xCPVille_Start(xInc_Collecte) & "&destination=" & xAdresse_End(xInc_Collecte) & "," & xCPVille_End(xInc_Collecte) & "&sensor=false"


Merci d'avance