Discussion :

[damlarumeur]

Salut tout le monde j'ai besoin de votre aide et je vous avouerais que vous me sauveriez la vie !La question est simple, elle l'est peut etre moins dans la réponse ... La voici :

J'ai dans une feuille excel en Feuil1 des informations(nom adresse ville etc) sur un client et je souhaiterais qu'en Feuil2 j'obtienne automatiquement par macro, la carte google maps de sa localistaion.

Pouvez vous m'aider dans ce sens ? Je vous en serais trés trés reconnaissant

cordialement

Damien

[SilkyRoad]

Bonjour

en ajoutant un navigateur web Microsoft dans la Feuil2 (WebBrowser) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Test()
    'RechercheGoogleMap "Condrieu"
    RechercheGoogleMap "Condrieu", "Rue du marché aux fruits"
    'RechercheGoogleMap "Condrieu", "Rue du marché aux fruits", "69420"
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
 
    Feuil2.WebBrowser1.Navigate strURL
 
End Sub

bon week end
michel

[damlarumeur]

Bonjour Michel

Tout d'abord je te remercie beaucoup de ta réponse et malheureusement ta réponse ne fonctionne pas. J' ai reproduis ce que tu as fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim strURL As String
Set IE = CreateObject("internetExplorer.Application")
strURL = "http://maps.google.fr/maps?f=q&hl=fr&q="
strURL = strURL & Adresse & " + " & CP & "+" & Ville

Feuil2.IE.Navigate strURL ==> cette ligne ne fonctionne pas

Si tu as encore une solution ...

[SilkyRoad]

bonjour

J' ai reproduis ce que tu as fait

Je n'ai pas l'impression que tu as reproduis ce que j'ai fait, si je compare les deux codes ...


relit mon précédent message :

en ajoutant un navigateur web Microsoft dans la Feuil2 (WebBrowser) :

bonne journée
michel

[damlarumeur]

Oui pardon j'ai fait un mauvais copier coller ^^

j'ai bien mis Feuil2.IE. navigate blabla ...

et ca ne fonctionne pas !

[aalex_38]

Bonjour,


J'ai essayé ce code et il fonctionne parfaitement chez moi.

Comme mon webbrowser est dans la feuille "ExWeb", j'ai codé comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("ExWeb").WebBrowser1.Navigate strURL

et ca ne fonctionne pas !

Qu'est-ce qui ne fonctionne pas, tu as un message d'erreur ?

[edelweisseric]

Bonsoir à tous

Bonjour
en ajoutant un navigateur web Microsoft dans la Feuil2 (WebBrowser) :
michel

SVP pouvez vous éclairer ma lanterne : il est où ce webbrowser ?????

Qu'elle est la manip, tant pour la feuille que pour l'USF ?

Merci beaucoup d'avance

Eric

[aalex_38]

SVP pouvez vous éclairer ma lanterne : il est où ce webbrowser ?????

Bonjour, il suffit de l'ajouter dans la feuille en faisant inserrer/controles supplementaires / Microsoft Office Webbrowser

pour l'Userform c'est la même chose, il faut aller chercher dans les controles supplementaires de la boite à outil.

Comme je le disais plus haut le code fonctionne bien seulement dans l'exemple lorsque je fais une recherche directement dans le webbrowser une erreur se produit avec l'affichage d'une fenêtre IE :
"Une erreur est survenue dans le script de cette page"...

En continuant ça fonctionne.

[edelweisseric]

Bonjour à tous

Merci aalex_38, grâce à toi, j'ai trouvé. J'ai longuement cherché dans les 148 contrôles supplémentaires : "Microsoft Office Webbrowser", ou "Microsoft Webbrowser", ou encore "Webbrowser", mais rien à faire.

Il se cache comme : "navigateur web microsoft", qui tout compte fait doit vouloir dire la même chose . C'était pourtant clair dans le premier post de SilkyRoad, merci Michel pour tes interventions, et aussi et surtout pour tes excellents tutos.

Eric