Probleme pour inserer une image Gif sous excel 2016 Fermé

Question

Bonsoir le forum,

je ne sais pas insérer une image Gif dans une feuille Excel je suis sous Excel 2016.

Mon problème est que le Microsoft Web Browser me donne des erreurs voir images jointes.

Vous aurez compris que j'aimerais mettre une image Gif dans une feuille Excel et que celle-ci s'anime dès que je clique ( ou ) que je me trouve sur cette feuille.

Merci de votre aide 

Skopg

Le Pingou · Answer

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.... !

skopg · Answer

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

Le Pingou · Answer

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à.

skopg · Answer

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

Le Pingou · Answer

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

skopg · Answer

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

Le Pingou · Answer

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 ?

skopg · Answer

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

Le Pingou · Answer

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

skopg · Answer

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

Le Pingou · Answer

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

gbinforme · Answer

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

Le Pingou · Answer

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

skopg · Answer

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:

" 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

Le Pingou · Answer

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 :

Le Pingou · Answer

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.

skopg · Answer

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

Le Pingou · Answer

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 ?

skopg · Answer

Bonjour Le Pngou,

voici comme demandé ;
http://www.cjoint.com/c/EIwrIHYmUKb

Bàv

skopg

Le Pingou · Answer

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