Bonjour,
Voici mon problème.
Lorsque je lance la commande ci-dessous, il n'est pas possible d'ajouter Dest2 dans la requête au niveau de google map.
J'ai toujours le même résultat, c'est-à-dire Depart et Dest1.
Comment ajouter une troisième destination dans la même requête?
Sub LanceNavigateur()
' Déclaration des variables
Dim LienUrl As String
Depart = Sheets("Itinéraires Garderies").Range("DepAdr")
Dest1 = Sheets("Itinéraires Garderies").Range("FinAdr")
Dest2 = Sheets("Itinéraires Garderies").Range("C5")
Select Case xType
Case Is = "itineraire possible"
xDirFlg = ""
Case Is = ""
xDirFlg = "h"
Case Is = ""
xDirFlg = ""
End Select
LienUrl = "http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Dest1 & "&daddr2=" & Dest2 & "&dirflg="
& xDirFlg
ShellExecute hwnd, "open", LienUrl, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Merci beaucoup.
Voici mon problème.
Lorsque je lance la commande ci-dessous, il n'est pas possible d'ajouter Dest2 dans la requête au niveau de google map.
J'ai toujours le même résultat, c'est-à-dire Depart et Dest1.
Comment ajouter une troisième destination dans la même requête?
Sub LanceNavigateur()
' Déclaration des variables
Dim LienUrl As String
Depart = Sheets("Itinéraires Garderies").Range("DepAdr")
Dest1 = Sheets("Itinéraires Garderies").Range("FinAdr")
Dest2 = Sheets("Itinéraires Garderies").Range("C5")
Select Case xType
Case Is = "itineraire possible"
xDirFlg = ""
Case Is = ""
xDirFlg = "h"
Case Is = ""
xDirFlg = ""
End Select
LienUrl = "http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Dest1 & "&daddr2=" & Dest2 & "&dirflg="
& xDirFlg
ShellExecute hwnd, "open", LienUrl, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Merci beaucoup.
Dernière édition: