Importer *.gif

meldja · 20 Décembre 2007

Bonjour,
Je voudrais importer une animation .gif dans un classeur Excel. Quand j'essaie d'importer une image à partir du fichier .gif, je n'ai que la première image de l'animation (donc pas d'animation).
J'ai trouvé des lignes de commande VBA en navigant sur le Net mais j'ai un code d'erreur 414 (je crois).
J'ai suivi les procédures (boîte à outils contrôles +mode création +navigateur web microsoft et les lignes de commande VBA) mais niet.
voici le code VBA en question :

Private Sub Workbook_Open()
WebBrowser1.Navigate "C:\Documents and Settings\jamel\Mes documents\Mes images\plage003.GIF"
End Sub

Si quelqu'un a une explication a ce bogage ou si quelqu'un a une autre solution, je suis preneur.
Merci d'avance

MichelXld · 20 Décembre 2007

Re : Importer *.gif

bonjour

Précise le nom de la feuille qui contient le navigateur Web, dans ta procédure:

Code:

Private Sub Workbook_Open()
   Worksheets("Feuil1").WebBrowser1.Navigate ...
End Sub

Bonne journée
MichelXld

meldja · 20 Décembre 2007

Re : Importer *.gif

Merci beaucoup, c pas la première fois que tu réponds à mes questionnement.
Si je peux encore abuser de tes lumières, c'est la première fois que j'essaie cette manip. Grâce à toi, ça a marché, mais je me rends compte qu'il y a des barre de défilement et une bordure (je n'avais aucune idée du résultat que j'aurai). N'y aurait-il pas moyen de les supprimer pour que le gif puisse se confondre dans ma feuille xls ?
Deuxièmement, j'ai essayé avec une autre image en rajoutant un 2 après workbook (pour pas que les 2 maccros aient le même nom) mais erreur :
Private Sub Workbook2_Open()
Si tu as le temps de te pencher sur les problèmes d'un débutant.
Merci et bon w end

MichelXld · 20 Décembre 2007

Re : Importer *.gif

Rebonjour

Merci pour ton message.

Je n'ai pas de solution pour la bordure mais pour supprimer les barres de défilement, tu peux utiliser:

Code:

Dim s As String
s = "C:\Documents and Settings\mimi\dossier\lapin4.gif"
Feuil1.WebBrowser1.Navigate _
    "ABOUT:<HTML><HEAD><body scroll='no'><IMG SRC='" & s & _
    "'</IMG></BODY></HTML>"

Tu dois mettre toutes tes procédures dans Workbook_Open:

Les évènements du module objet ThisWorkbook, dans Excel - Club d'entraide des développeurs francophones

Bonne journée
MichelXld

meldja · 20 Décembre 2007

Re : Importer *.gif

Re Jean Pierre,
Ta macro marche nickel, je n'ai plus de barre de défilement.
Je n'ose plus abusé alors je garde mes questions pour une autre fois, c'est déjà super gentil de m'avoir fait avancer sur ce que je cherchais (enfin je ne sais pas si j'ai personnellement avancé puisque je me suis contenté de recopier bêtement tes lignes de commande vu que je ne connais pas VBA).
En tout cas, ça a répondu tout à fait à mes attentes.
Merci encore

Effectuez une recherche sur Excel Downloads...

Importer *.gif

meldja

XLDnaute Impliqué

MichelXld

XLDnaute Barbatruc

meldja

XLDnaute Impliqué

MichelXld

XLDnaute Barbatruc

meldja

XLDnaute Impliqué

Discussions similaires

Nous accordons de l'importance à votre vie privée