XL 2019 Récupérer une fenêtre MAPPY via Excel

[Didier Quilghini]

Bonjour à tous et merci de m'accueillir,
Je sollicite votre aide pour m'aider à résoudre ce problème :
Sur une feuille Excel, je saisie une ville de départ et une ville d'arrivée à l'intérieur de deux cellules précises et définies dans ma macro.
Puis grâce à celle-ci, sans quitter Excel je récupère une fenêtre MAPPY avec tous les renseignements dont j'ai besoin, distance, temps, péages que je saisi immédiatement dans mon Excel.
Sauf que ...... Mappy ne supporte plis IE ! mais annonce qu'il faut passer par

Voici ci dessous mon code en jaune qu'il faudrait remplacer afin d'utiliser CHROME ou FIRFOX ou EDGE par ex et dont je n'ai pas les connaissance pour le faire.

Voila, merci d'avance pour votre aide
Didier

 

[Phil69970]

Bonjour Didier, Staple1600, Patrick

Et pour laisser le choix entre Chrome et Firefox d'une part et Mappy et Google Maps de l'autre.

Sub test()
Dim depart As String
Dim arrivee As String

'Avec Firefox
monexplorateur = "C:\Program Files\Mozilla Firefox\firefox.exe"

'Avec chrome
'monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

depart = [O1]              'Cellule de départ sur la feuille
Destination = [O2]         'Cellule de d'arrivée sur la feuille

'Avec mappy
'URL = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & Destination & "/car/4"

'Avec google maps
URL = "https://www.google.fr/maps/dir/" & depart & ",/" & Destination

URL = Replace(URL, " ", "%20")
Shell monexplorateur & " " & URL
End Sub

@Phil69970

 

[Didier Quilghini]

Bonjour Didier, Staple1600, Patrick

Et pour laisser le choix entre Chrome et Firefox d'une part et Mappy et Google Maps de l'autre.

Sub test()
Dim depart As String
Dim arrivee As String

'Avec Firefox
monexplorateur = "C:\Program Files\Mozilla Firefox\firefox.exe"

'Avec chrome
'monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

depart = [O1]              'Cellule de départ sur la feuille
Destination = [O2]         'Cellule de d'arrivée sur la feuille

'Avec mappy
'URL = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & Destination & "/car/4"

'Avec google maps
URL = "https://www.google.fr/maps/dir/" & depart & ",/" & Destination

URL = Replace(URL, " ", "%20")
Shell monexplorateur & " " & URL
End Sub

@Phil69970

Merci pour ce complément désinformations très utile !
Bonne fin de journée
Slt
Didier

 

[Cariiiine]

Bonjour,
J'ai essayé de changer le /car/4 pour avoir un autre type de véhicule mais ça n'a pas fonctionné. Sauriez-vous me dire si c'est possible, et si oui ce qu'il faut changer dans la fin de l'URL?
Merci,