Probleme pour inserer une image Gif sous excel 2016

skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
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

A voir également:

20 réponses

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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.... !

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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à.

0
skopg
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 ?

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Vous pouvez le faire selon l'exemple : https://www.cjoint.com/c/EIviCwClN2Y

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Est-ce que le problème survient avec mon exemple ou votre application ?

0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour gbinforme,
Oui c'est exact sauf que sur Excel 2010, 2013 le control (Web Browser] ne peut pas être insérer sur la feuille pour des raisons de sécurité voirla doc de MS.
Amicales salutations.
Le Pingou
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 :

0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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.

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 ?

0
skopg Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Le Pngou,

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

Bàv

skopg
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Merci pour le fichier.
Toutefois je me demande quand même si mon exemple sert à quelque chose .....
Mais bon chacun est libre.

0