Comment "récupérer" un GIF pour ensuite insérer dans feuille

Bonjour,

Tout est presque dans le titre.

Je souhaite "récupérer" un GIF dont vous trouverez l'adresse dans le lien ci-dessous

http://www.delaplacem.fr/images/fourmi.gif

Mais c'est la 1ère fois que je m'interrese à ce type d'image animée, mais je souhaite "égayer" une feuille de calcul pour un copain et je trouve cela sympa. Donc je ne sais pas comment il faut faire.

Puis ensuite je souhaiterais le mettre en animation sur la feuille nommée "agenda" du fichier.

MERCI

@++++

Bonjour le forum,

Pour copier le gif dans une autre feuille :

Développeur

Mode Création

Copier

Ou :

Insérer un WebBrowser

Option Explicit

Private Sub Workbook_Open()
  With Sheets("Feuil1")
    .WebBrowser1.Navigate "C:\chemin du .gif"
  End With
End Sub

Bonjour,

Oui c'est tout à fait cela que je souhaite !

Mais 2 petites questions :

1) - Dans ton second message tu indiques le code pour insérer le GIF, ou puis-je télécharger le fichier de ce GIF avec la fourmi pour ensuite utiliser ton code ?

2) - d’après toi pourrais-je mettre le GIF en arrière plan par exemple sous un tableau ?

Si oui comment faire, mode opératoire éventuellement.

Je sais je suis un peu gourmand !

MERCI

Option Explicit

Private Sub Workbook_Open()
  With Sheets("Feuil1")
    .WebBrowser1.Navigate "http://................gif"
  End With
End Sub