XL 2013 EXCEL VBA ET GOOGLE MAPS

vinciHorus

XLDnaute Junior
Bonjour

Est ce que c'est possible sans effectuer une manipulation sur google map d'afficher à partir d'une cellule d'excel l'adresse sur google map et enregistrer la carte dans un dossier de ton répertoire (ou récupérer le lien de mise en page de la carte que tu veux enregistrer)

Merci
 

GALOUGALOU

XLDnaute Accro
bonjour vincihorus bonjour le forum
une manière d'afficher une carte maps dans un classeur excel

dans la feuille 1 d'un classeur insérer un microsoft Web Browser
developpeur/inserer/autres controles/et dans la liste microsoft web browser

réserver la cellule a1 pour la saisie des adresses (séparé par une virgule)
lyon ou 69000 lyon , place de la paix

dans un module le code suivant
VB:
Sub Test()
RechercheGoogleMap Range("A1")
End Sub
 
 
Sub RechercheGoogleMap(NomVille As String, _
    Optional Adresse As String, Optional CodePostal As String)
 
    Dim strURL As String
 
    strURL = "http://maps.google.fr/maps?f=q&hl=fr&q="
    strURL = strURL & Adresse & " ,+ " & CodePostal & "+" & NomVille
 
    Feuil1.WebBrowser1.Navigate strURL
 
End Sub
cordialement
galougalou
 

Pièces jointes

  • afficher carte maps v2.xlsm
    20.8 KB · Affichages: 88

vinciHorus

XLDnaute Junior
bonjour vincihorus bonjour le forum
une manière d'afficher une carte maps dans un classeur excel

dans la feuille 1 d'un classeur insérer un microsoft Web Browser
developpeur/inserer/autres controles/et dans la liste microsoft web browser

réserver la cellule a1 pour la saisie des adresses (séparé par une virgule)
lyon ou 69000 lyon , place de la paix

dans un module le code suivant
VB:
Sub Test()
RechercheGoogleMap Range("A1")
End Sub


Sub RechercheGoogleMap(NomVille As String, _
    Optional Adresse As String, Optional CodePostal As String)

    Dim strURL As String

    strURL = "http://maps.google.fr/maps?f=q&hl=fr&q="
    strURL = strURL & Adresse & " ,+ " & CodePostal & "+" & NomVille

    Feuil1.WebBrowser1.Navigate strURL

End Sub
cordialement
galougalou

Merci du retour

cette méthode je sais le faire et j'aimerais plutôt enregistrer la carte dans un de mes dossiers
 

vinciHorus

XLDnaute Junior
re vincihorus
une solution,
un clic droit sur la carte, imprimer, choisir l'imprimante pdf et dossier

je ne sais pas imprimer en vba, le webbrowser, pour cela il faudrait ouvrir un autre fil

cordialement
galougalou
re vincihorus
une solution,
un clic droit sur la carte, imprimer, choisir l'imprimante pdf et dossier

je ne sais pas imprimer en vba, le webbrowser, pour cela il faudrait ouvrir un autre fil

cordialement
galougalou
Merci de ta reponse

mon but est de le faire sans seconde fil ; juste le code vba qui fait tout cela
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo