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

Didier Quilghini · 3 Mars 2021

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

Didier Quilghini · 4 Mars 2021

Patricktoulon !
100% Bon voici le code rectifié et .... cela fonctionne parfaitement Bravo !
Encore merci pour ton aide et pour avoir bien compris ma demande.
Je clos donc cette discussion avec succès en moins de 24 h00 !
Bonne journée et peut être à bientôt
Didier

Sub test()
'https://fr.mappy.com/itineraire#/voiture/Toulon 83000-83200/Paris 75001-75116/car/4

Dim depart As String
Dim arrivee As String

depart = Sheets("ITINERAIRE").Range("O1").Value
arrivee = Sheets("ITINERAIRE").Range("O2").Value
monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

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

Phil69970 · 4 Mars 2021

Bonjour Didier, Staple1600, Patrick

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

VB:

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 · 4 Mars 2021

Phil69970 à dit:

Bonjour Didier, Staple1600, Patrick

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

VB:

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 · 18 Septembre 2023

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 · 23 Janvier 2025

Cariiiine à dit:
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 · 23 Janvier 2025

Ilonaa à dit:
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 · 23 Janvier 2025

AtTheOne à dit:
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 · 23 Janvier 2025

Ilonaa à dit:
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 · 23 Janvier 2025

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 · 24 Janvier 2025

fanfan38 à dit:
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

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

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

Phil69970

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Cariiiine

XLDnaute Nouveau

Ilonaa

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Ilonaa

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

fanfan38

XLDnaute Barbatruc

Ilonaa

XLDnaute Nouveau

Discussions similaires

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

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency