Integrer juste la petite MAp google selon choix adresse

Bonjour,

Il fait chaud ? Tu aimerais faire du canot ? Tu peux insérer le petit canot du site internet de Frédéric Sigonneau dans ta feuille de calcul. Attention à la noyade... ;-))

Pour exécuter ce code, tu as besoin d'ajouter 2 bibliothèques à ton projet.

A ) Microsoft Internet Controls

B ) Microsoft HTML Object Library

J'espère qu'il n'y a pas de copyright sur le canot !

Promis Frédéric, je ne recommencerai pas !  ;-)

Tu dois adapter à la fin de la procédure le nom de la

feuille de calcul selon ton application.

'--------------------------------

Sub Importer_Un_Image_Site_Web()

Dim MonApp As InternetExplorer

Dim myHTMLDoc As HTMLDocument

Dim D As Object

Set MonApp = CreateObject("InternetExplorer.Application")

MonApp.Navigate "http://frederic.sigonneau.free.fr"

While MonApp.ReadyState <> READYSTATE_COMPLETE

Wend

Set myHTMLDoc = MonApp.Document

Set D = myHTMLDoc.frames(1).Document.images(, 1)

With Worksheets("Feuil1") 'nom à adapter

    .Shapes.AddPicture D.href, msoFalse, msoTrue, 50, 50, 150, 16

End With

End Sub

'--------------------------------

MichD

"lSteph" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour à tous,

Contexte:

usage professionel (XP+2003)

Dans une feuille (fiche de présentation de tableaux et graphiques) j'ai une liste déroulante  qui me permet de choisir un établissement,  s'y mettent à jour ainsi  différentes cellules (index equiv) contenant l'une notament l'adresse de cet établissement

J'ai aussi placé un objet navigateur Web qui réagit lors de l'activation ou du recalcul de cette feuille

 Me.WebBrowser1.Navigate "http://maps.google.com/maps?q=" & [monadresse] & "&t=h&hl=fr"

Mais ainsi j'obtiens toute la pageweb avec dans un coin la petite map de l'adresse voulue.

QUESTION: Comment faire pour avoir un cadre contenant juste la petite map et non toute lapage google map correspondant à l'adresse choisie.

Le but n'étant pas de re-naviguer mais  que ce cadre soit imprimable au même niveau que les éléments de la feuille et se mette à jour selon le même choix.

Merci d'avance pour vos idées.

LSteph

Salut

En accord avec ton idée, je suis justement sur cette piste, merci de ton intérêt, mais comment tu fais

mon pb reste celui-ci comment récupèrer cette iframe et surtout, c'est du html comment le mettre dans une page qui n'existe pas encore , pour l'instant j'ai ceci dans le Calculate de ma Feuille

MaSource="http://maps.google.com/maps?q=" & [monadresse] & "&t=h&hl=fr"

Me.WebBrowser1.Navigate MaSource

Il faudrait pouvoir une fois la page obtenue ecrire quelque part en html dans un nouveau doc

 <iframe ......  & MaSource &.... >

Et remettre cela dans le Webbrowser,

Me.WebBrowser1.Navigate "MonNouveauDoc.html"

je dois etre fatigué mais je vois pas comment m'y prendre

... j'ai essayé un truc pour envoyer le texte dans une cellule l'enregistrer dans un doc html  et le rouvrir j'ai tout planté mon Aide se fermait plus et j'avais deux messages de bug VBa qui se ricochaient. J'ai du eteindre comme un sauvage.

Merci

--

LSteph

une idee

je crois que tu peux mettre le "frame" du genre

<iframe width="425" height="350" frameborder="0" scrolling="no".......

.......color:#0000FF;text-align:left">Agrandir le plan</small>

je l'ai fait sur des feuilles word

si j'ai bien compris ta demande

--

andre

Andre

Bonjour,

Merci de ta suggestion, toutefois

le but n'est pas d'integrer une application google maps à un site web mais une carte à une feuille excel.

--

LSteph

Bonjour,

Peut-être en utilisant directement l'API Google Maps (fonctionne pour un site Web, à voir pour Excel) ?

Plus d'informations à l'adresse http://maps.google.com/support/bin/answer.py?hl=fr&answer=26392