[VBA] Trajet maps avec une voiture

Re : [VBA] Trajet maps avec une voiture

sujet en double Cordialement.



"la constipacion no es tu amigo"

Re : [VBA] Trajet maps avec une voiture

Auriez vous le lien de cette discussion svp?

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

Re : [VBA] Trajet maps avec une voiture

Merci je vais voir ca

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?

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