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 & " "...

Staple1600 · 3 Mars 2021

Bonsoir le fil, Didier (Bienvenue sur le forum)

=>Didier
[Pour infos]
Tu as pris connaissance du point 8 (section Demandeur) de la charte du forum?
Parce qu'en lisant les CGU de mappy, il semble bien qu'on soit dans ce cas de figure, non ?

Didier Quilghini · 3 Mars 2021

Bonsoir Staple
Oui bien sûr, mais je n'ai publié aucun lien dont il est fait mention ? Porno et autres ... Juste le lien Mappy qui est un site de navigation routière que je souhaite utiliser dans une application Excel ...
Mappy est tres connu. Quelque chose m'échappe ?
merci
Didier

Staple1600 · 3 Mars 2021

Re

C'est l'autre point 8.
(celui-ci)

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

Et sur mappy
Dans le doute, contactes le webmaster d'XLD, comme cela tu sauras à quoi t'en tenir.

Phil69970 · 3 Mars 2021

Bonsoir Didier, Staple1600

Staple1600 à dit:
Tu as pris connaissance du point 8 (section Demandeur) de la charte du forum?

Staple1600 parlait de ce point :

@Phil69970

Staple1600 · 3 Mars 2021

Bonsoir Phil69970

Je vois que tu aimes le jaune

Didier Quilghini · 3 Mars 2021

Re bonsoir ...
Ah ok je comprends. Mais ce n'est pas du tout le sujet. Mon développement n'extrait aucune donnée de MAPPY.
Il permet < d'afficher la fenetre MAPPY> sans quitter Excel. Juste une question pratique pour ne pas jongler entre les écrans.
On reste sur la feuille Excel et la fenetre Mappy apparait en lecture uniquement.
Meilleurs sentiments
Didier

Staple1600 · 3 Mars 2021

Re

C'est ce qu'on lit sur les CGU de mappy

Il est expressément interdit à l’Utilisateur de supprimer ou [...] de copier, modifier, améliorer, éditer, traduire, décompiler, créer une œuvre dérivée, inverser la conception ou l’assemblage ; de tenter de trouver le code source ; de vendre, attribuer, sous licencier ou transférer de quelque manière que ce soit, tout ou partie des Contenus du Site.
Toute reproduction, représentation, exploitation à quelque fin que ce soit, de tout ou partie du Site, et notamment de sa structure et/ou de son contenu, sans l’autorisation préalable et écrite de Mappy [...]

D'où ma suggestion de contacter pour avis David, le webmaster du site
(cf message#4)
Tu peux le contacter par MP (voir ci-dessous)

https://www.excel-downloads.com/members/david-aubert.1/
(Tu cliques sur Nouvelle conversation)

Comme cela on saura, si le point 8 est un point de blocage ou pas.

Didier Quilghini · 3 Mars 2021

Re RE ....
Donc je vais poser ma question différemment.
Comment puis remplacer ces deux lignes de commande qui utilisent IE, par des commandes similaires mais pour MOZILLA ?

Merci d'avance pour votre aide,
Cdt
Didier

patricktoulon · 3 Mars 2021

bonsoir
du calme les gars tout ce qu'il demande c'est d'afficher son explorateur a la dite page

shell "chemin de ton explorateur" &" " & "url de mapy"

Staple1600 · 3 Mars 2021

Re

=>patricktoulon
Je suis tout à fait calme
La seule cartouche que j'ai sorti, c'est celle-ci
[Pour infos]
Comme il disait sur le canal + (d'avant V-B)
"Ceci est un message à caractère informatif"

Didier Quilghini · 3 Mars 2021

Sourire ... Merci à tous quand même. Et merci patricktoulon.
En fait je saisi mes deux villes dans excel en O2 et O3 puis je lance ma bidouille.
L'écran internet apparait et je saisi a nouveau distance, temps et péages dans les trois cellules en dessous et ... une instruction toute simple transpose dans une autre feuille.

Une petite aide encore ? voici mon programme .... qui bloque à partir de shell...
J'ai supprimé tout ce qui se rapporte à IE avec les '

Sub Mappy()
Dim Trajet As String
Dim depart As String
Dim arrivee As String

depart = Sheets("ITINERAIRE").Range("O2").Value
arrivee = Sheets("ITINERAIRE").Range("O3").Value

Trajet = "http://fr.mappy.com/#/2/M2/TItinerary/IFR" & depart & "|TO" & arrivee

'Set IEAppli = CreateObject("internetexplorer.application")
'IEAppli.Visible = True
'IEAppli.Navigate Trajet
Shell "c:\Programmes\Mozilla Firefox\Firefoxe.exe" & " " & "http://fr.mappy.com/#/2/M2/TItinerary/IFR" & depart & "|TO" & arrivee

End Sub

Si vous avez la solution ça serait super
Cdt
Didier

patricktoulon · 4 Mars 2021

bonjour
juste un exemple
perso j'utilise chrome

VB:

Sub test()
'https://fr.mappy.com/itineraire#/voiture/Toulon%2083000-83200/Paris%2075001-75116/car/4
monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
depart = "toulon 83200"
Destination = "paris 75001"
URL = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & Destination & "/car/4"
URL = Replace(URL, " ", "%20")
Shell monexplorateur & " " & URL
End Sub

Didier Quilghini · 4 Mars 2021

patricktoulon à dit:

bonjour
juste un exemple
perso j'utilise chrome

VB:

Sub test()
'https://fr.mappy.com/itineraire#/voiture/Toulon%2083000-83200/Paris%2075001-75116/car/4
monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
depart = "toulon 83200"
Destination = "paris 75001"
URL = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & Destination & "/car/4"
URL = Replace(URL, " ", "%20")
Shell monexplorateur & " " & URL
End Sub

Patricktoulon, Bonjour
Cela semble être ce que je recherche, je vais tester dès que j'ai un petit moment et vraiment merci d'avoir pris de ton temps pour m'apporter cette solution. C'est vraiment sympa !!
Je reviens sur le fil dans la journée pour annoncer le résultat.
Bonne journée à tous et encore thanks
Sincèrement
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 & " " & Url
End Sub

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

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

XLDnaute Nouveau

Discussions similaires