Discussion :

[nono63]

Bonjour à tous,


Afficher un GIF animé dans une feuille EXCEL je sais faire grâce aux multiples exemples disponibles.
Seulement la faiblesse est que le fichier GIF source doit être à un emplacement particulier et que si le classeur
voyage celui-ci doit suivre etc ...
De plus dans ma boîte il y a une politique de sécurité qui interdit d'écrire autre part que sur son propre bureau ou dossiers personnels, du coup en cas d'utilisation du classeur
sur un autre PC c'est pas viable.
Stocker le GIF sur un lecteur réseau n'est pas la solution non plus.

J'ai essayé une méthode ou le fichier est lu et encodé dans une feuille(lecture binaire) , seulement si le fichier est trop gros (pourtant pas tant que ça, 1.72 Mo) ça plante lors de l'enregistrement.
J'ai vu un autre exemple ou l'image est décomposée en nuance de couleur, ça m'a l'air très compliqué avec un code interminable.

Donc je viens vous demander si il existe une solution pour que le GIF suive le classeur EXCEL.

Merci !!

Nono

[mjpmjp]

bonjour,
et si tu le stockes/affiche dans un onglet masqué ?
est il possible (gif animé) de faire un transfert du contrôle de l'onglet masqué au contrôle visible ?
@+JP

[nono63]

bonjour,
et si tu le stockes/affiche dans un onglet masqué ?
est il possible (gif animé) de faire un transfert du contrôle de l'onglet masqué au contrôle visible ?
@+JP

Bonsoir,

Oui ce serait une idée mais je n'ai pas trouvé de solution pour conserver un GIF animé dans une feuille.
Toutes les solutions que je trouve chargent l'image à un moment ou un autre.

@+

[mjpmjp]

bonjour,
avec excel 2010
dans l'onglet 1, j'ai insérer "Microsoft Web Browser" , dans l'onglet 2 idem

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
'pour effacer
Sheets("O1").WebBrowser1.Navigate ("about:blank")
 
'pour charger
Sheets("O1").WebBrowser1.Navigate ("D:\WORK_SPACE\vrac\video11.gif")
 
'pour activer
Sheets("O1").WebBrowser1.Activate
 
'pour transférer
Sheets("O2").WebBrowser2.Navigate (Sheets("O1").WebBrowser1.LocationURL)

une fois l'image chargée et le book enregistré , elle reste

le WB sont un peu capricieux...

@+JP

[patricktoulon]

bonsoir
fait une recherche sur la dll gif89
cela dit si l'enregistrement en binaire plante(image trop grande)
que tu peux pas installer un complément
que tu ne peut pas transporter l'image ailleurs que ton bureau
je crois que tu a ta réponse
quoi que si tu cherche bien dans les contribs tu trouvera avec mon pseudo une contribution ou je reprends la démo de silkyroad mais légèrement différemment
ce qui me permet de mémorisé des images de plus grande taille et pas seulement les gif


tu trouvera aussi une autre contrib ou je fait pareil (enregistrer dans une feuille) mais cette fois ci en base 64 qui est 10 fois plus rapide

voila voila

[nono63]

bonjour,
avec excel 2010
dans l'onglet 1, j'ai insérer "Microsoft Web Browser" , dans l'onglet 2 idem

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
'pour effacer
Sheets("O1").WebBrowser1.Navigate ("about:blank")
 
'pour charger
Sheets("O1").WebBrowser1.Navigate ("D:\WORK_SPACE\vrac\video11.gif")
 
'pour activer
Sheets("O1").WebBrowser1.Activate
 
'pour transférer
Sheets("O2").WebBrowser2.Navigate (Sheets("O1").WebBrowser1.LocationURL)

une fois l'image chargée et le book enregistré , elle reste

le WB sont un peu capricieux...

@+JP

Salut,

Merci pour vos réponses mais ta solution ne fonctionne pas, malheureusement.
Le gif est conservé dans le webrowser uniquement si celui-ci reste disponible à son emplacement de téléchargement.
Si je charge le gif, j'enregistre le classeur EXCEL et puis je le ré-ouvre le GIF est présent.
Par contre si je supprime le GIF après affichage et enregistrement du classeur EXCEL, il n'est plus disponible à l'ouverture du classeur.
Je vais explorer la méthode de Patrick.

@+ tard