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,

 

[Ilonaa]

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,

Bonjour, Avez vous une réponse ? Car cela m'intéresserait fortement, j'aimerais changer le mode "car" par le mode poids lourd. De façon à ce que Excel me fasse la recherche directement paramétrer sur le mode poids lourd sur MAPPY.
Merci
Cdt

 

[AtTheOne]

Bonjour, Avez vous une réponse ? Car cela m'intéresserait fortement, j'aimerais changer le mode "car" par le mode poids lourd. De façon à ce que Excel me fasse la recherche directement paramétrer sur le mode poids lourd sur MAPPY.
Merci
Cdt

Bonjour à toutes & à tous
Essaie car/34
(Paramètre à la main dans mappy et observe le lien html généré )
À bientôt

 

[Ilonaa]

Bonjour à toutes & à tous
Essaie car/34
(Paramètre à la main dans mappy et observe le lien html généré )
À bientôt

Bonjour,
Merci pour votre réponse.
J'ai changé dans ma ligne de code car/4 par car/34. Cela ne fonctionne pas. Le lien internet me renvoi constamment sur le mode voiture léger.

Code :
Sub Bouton_cliquer()

Dim Trajet As String
Dim depart As String
Dim arrivee As String

depart = Sheets("FICHE").Range("B24").Value
arrivee = Sheets("FICHE").Range("B25").Value
monexplorateur = "C:\Program Files\Google\Chrome\Application\chrome.exe"


Url = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & arrivee & "/car/34"
Url = Replace(Url, " ", "%20")
Shell monexplorateur & " " & Url

End Sub

Et voici la capture du trajet MAPPY.

Avez vous une autre solution à me proposer ?

En même temps, j'ai une autre question concernant les lignes de codes.
Pourrions nous rajouter dans le code VBA ci-dessus une ligne pour que Mappy détecte l'adresse exacte de la destination (qui est dans une autre cellule "B16" Par exemple) ?

Je vous remercie, je suis débutante dans les codes VBA, c'est pourquoi je vous demande votre aide.

Merci,
Cdt

 

[AtTheOne]

Bonjour,
Merci pour votre réponse.
J'ai changé dans ma ligne de code car/4 par car/34. Cela ne fonctionne pas. Le lien internet me renvoi constamment sur le mode voiture léger.

Code :
Sub Bouton_cliquer()

Dim Trajet As String
Dim depart As String
Dim arrivee As String

depart = Sheets("FICHE").Range("B24").Value
arrivee = Sheets("FICHE").Range("B25").Value
monexplorateur = "C:\Program Files\Google\Chrome\Application\chrome.exe"


Url = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & arrivee & "/car/34"
Url = Replace(Url, " ", "%20")
Shell monexplorateur & " " & Url

End Sub

Et voici la capture du trajet MAPPY. Regarde la pièce jointe 1211533

Avez vous une autre solution à me proposer ?

En même temps, j'ai une autre question concernant les lignes de codes.
Pourrions nous rajouter dans le code VBA ci-dessus une ligne pour que Mappy détecte l'adresse exacte de la destination (qui est dans une autre cellule "B16" Par exemple) ?

Je vous remercie, je suis débutante dans les codes VBA, c'est pourquoi je vous demande votre aide.

Merci,
Cdt

Re
Excuse-moi, j'avais tenté cela sur mon mobile mais, en fait, le N° suivant "/car/" ne correspond pas à la catégorie de véhicule (il est différent à chaque fois).
Pour le reste je te conseille d'ouvrir ton propre fil en joignant un fichier exemple.
À bientôt

 

[fanfan38]

Bonjour et bienvenu sur le forum
Pour le vehicule: tu t' inscrit sur Mappy et tu enregistres ton véhicule...
Pour l'adresse: arrivee = Sheets("FICHE").Range("B16").Value &"," & Sheets("FICHE").Range("B25").Value

A+ François

 

[Ilonaa]

Bonjour et bienvenu sur le forum
Pour le vehicule: tu t' inscrit sur Mappy et tu enregistres ton véhicule...
Pour l'adresse: arrivee = Sheets("FICHE").Range("B16").Value &"," & Sheets("FICHE").Range("B25").Value

A+ François

Bonjour,
Merci pour la ligne de code. ca fonctionne parfaitement.
J'ai déjà fait cette manip cela fonctionne pas, dès que j'appui sur le bouton de ma macro, elle me remet en mode véhicule et non PL. je suis obligé de retourner dans "mes options" et de valider car effectivement il garde mes préférences mais il ne les appliques pas.
Je ne sais pas s'il existe une solution pour cela, s'il y a c'est top sinon tant pis, nous resterons à l'ancienne. En tout cas merci pour votre aide, si vous avez d'autre conseil, je suis preneuse.
merci Beaucoup,
Cdt