Probleme pour inserer une image Gif sous excel 2016

Bonjour,
Eh bien avec Excel 2013 il faut aller sur l'onglet « Insertion » et ensuite dans le bloc « Illustrations » vous avez le choix sur Images ou Images en ligne.... !

Bonjour Pingou,

merci de répondre mais et oui il y a un mais .....soit par image ou image web celle-ci ne s'anime pas.

si vous voyez autre chose ,car ma question je pense est assez précise j'ai bien sur essayer pas mal de chose avant de poster sur le forum pour avoir j'espère une solution à mon problème.

Citation: Einstein disait il y a une solution à tout problème si on ne trouve pas c'est que le problème est mal poser.

Dans l'attente de vous lire.
Skopg

Bonjour,
Désolé, je n'ai pas fait attention à la fin du message «que celle-ci s'anime dès que je clique ».
Faites donc un petit saut par là.

Bonjour Le Pingou,

j'ai fais un saut comme vous dites et je retrouve tous les liens ou sites que j'ai déjà visité......( et Dieu sait si j'en ai fais ).
Mon réel problème avant d'insérer mon image est que le " Microsoft Web Browser " ne fonctionne pas voir images jointes avec ma 1ere demande sur le forum.

Bàv
skopg

Bonjour,
Il faut l'insérer dans un formulaire (UserForm) et ça marche.
Voir aussi les informations ici : https://docs.microsoft.com/fr-fr/office365/troubleshoot/administration/insert-scriptable-activex-control

Bonsoir Le Pingou,

merci de me répondre rapidement mais j'ai déjà fais ça ( voir image ) mais mon but c'est de ne pas avoir d'Userform JUSTE l'image Gif dans la feuille.

Je crois sauf erreur de ma part si je suis les recommandations faites via le lien que tu m'as fourni que je ne saurai pas faire cette action sous Excel 2016.

Bàt
@+ skopg

Bonjour,
Merci du retour.
Pour ma part je vous déconseille de modifier les informations du registre comme mentionné dans l'article du lien si vous n'êtes pas expert ....
Quelle est votre but de vouloir absolument mettre une image animée sur une feuille du classeur ?

Bonsoir Le Pingou,

tout simplement comme vous le voyez c'est un coureur comme image et dans mon classeur j'ai un graphique avec toutes les sorties faites et j'aurais aimé avoir simplement ce vélo animé quand on regarde le graphique...

Merci

Bàv
skopg

Bonjour,
Vous pouvez le faire selon l'exemple : https://www.cjoint.com/c/EIviCwClN2Y

Bonjour Le Pingou,

merci du retour mais....aie à nouveau ce mais quand je vais sur accueil j'ai
"WebBrowser1.Document.body.Scroll = "no".
dans la feuil1 il y a un cadre avec " Cette page ne peut afficher.........."
et sur feuil2 "WebBrowser1.Document.body.Scroll = "no"

J'ai installé office 2010 et 2013 il n'y a que sur 2010 que ces erreurs arrivent car sur 2013 même problème que 2016 " Microsoft Web Browser " me donne .....voir premier message.

Comment faire partir ce cadre et les ascenseurs de droite et gauche et faire venir l'image gif ( animée ).

Merci pour votre temps et patience.
Bàv
skopg

Bonjour,
Est-ce que le problème survient avec mon exemple ou votre application ?

Bonjour skopg, Le Pingou,

mon but c'est de ne pas avoir d'Userform JUSTE l'image Gif dans la feuille.

Tu as ici une astuce qui fonctione ainsi

Bonjour skopg,
je pense qu'il y a une petite confusion ; soit :
1.- vous mettez une image et là c'est sur la feuille
2.- si image animé vous devez passer par une [UserForm] comme sur mon exemple

Bonsoir Le Pingou,

oui le problème vient de votre exemple avec 2016 il donne



avec 2013 il donne

http://static.commentcamarche.net/www.commentcamarche.net/pictures/WkwVmOkiQiNckmdCiHocHFc6EGqSCdUZRQH9fHojgFXX9RjOYnntMCKQQhapblwl-probleme-2013.png |fancy]

et avec 2010

le cadre sur feuille1 et " WebBrowser1.Document.body.Scroll = "no" " sur la feuille2

je sais faire fonctionner le gif voir message 6 avec ce type de code;
feuil1; Private Sub Worksheet_Activate()
ActiveWindow.DisplayVerticalScrollBar = False
End Sub

Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayVerticalScrollBar = True
End Sub

userform;Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
Dim LePath As String

LePath = ActiveWorkbook.Path & "\"
Largeur = WebBrowser1.Width * 140 / 110
Hauteur = WebBrowser1.Height * 400 / 410
'Le nom du fichier Zip
S = LePath & "velo11.gif"

WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
End Sub

et bien sur un module pour faire fonctionner l'userform.

Mais et oui ce fameux mais est-il possible de le faire SANS Userform que quand je me trouve sur la feuil1 mon IMAGE est ANIMEE!!!!!!!

Merci à vous ( Le Pingou et Gbinforme )
Dans l'attente de vous lire

skopg

Bonjour,
Je pense qu'il manque une référence dans l'éditeur VBA.
Dans l'éditeur sous Outils / Référence que vous avez bien les éléments cochés comme suit :

Bonjour,
Concerne : avec 2013 il donne...
S'il est corrompu c'est chez vous que cela se passe, essayer de le recharger une nouvelle fois.

Bonjour Le Pingou,

suivant le ms 6 j'ai bien tout ce qui est coché et pour que cela fonctionne....
j'ai appliqué le code qui se trouve ms 15 et ca fonctionne pour 2010,2013 et pour 2016 il me faut enlever le module ote croix.

Mais est-il possible de placer lors du clique sur la feuille1 ou 2 l'userform plus sur la gauche ou droite voire plus bas.

merci de votre aide.

skopg

Bonjour,
Le code du message 15 me parait vraiment étrange ...... !
Est-il possible de voir une copie de votre fichier sur https://www.cjoint.com/ et poster le lien ?

Bonjour Le Pngou,

voici comme demandé ;
http://www.cjoint.com/c/EIwrIHYmUKb

Bàv

skopg

Bonjour,
Merci pour le fichier.
Toutefois je me demande quand même si mon exemple sert à quelque chose .....
Mais bon chacun est libre.