Discussion :

[SilkyRoad]

Bonjour,

Je vous propose un nouvel élément à utiliser : Visualisation et Stockage d'images gif animées dans un classeur Excel

Un Exemple de code permettant d'afficher une image GIF et de la Stocker dans une feuille de calcul.



Testé sous XL97,XL2000,XL2002 (Windows 2000 et XP)





Tutoriel : Stocker et visualiser des images GIF dans Excel.

Qu'en pensez-vous ?

[skopg]

Bonsoir,
désolé mais cela ne fonctionne pas je suis en excel 2003, 2010, 2013 et 2016 et cela coince au niveau de " Open S For Binary Access Write As F ".
Si je dois utiliser qu'un exemplaire excel ( 2003 ou 2016 ).

Merci de me dire pourquoi ca ne fonctionne pas.

[davido84]

Bonjour,

j'ai testé le fichier par curiosité et effectivement cela plante à la ligne indiquée.
Cela est dû au chemin du fichier indiqué "C:\imageTemp.gif".
Tu n'as probablement pas l'autorisation d'enregistrer un document à la racine C: de ton ordinateur (fais le test de ton côté en ouvrant un fichier texte par exemple, note quelque chose dedans et essaie de l'enregistrer dans C:\ et tu verras).

Enregistre le fichier Excel sur le bureau par exemple et modifie dans la Sub ComboBox1_Change la ligne

Code :

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

1
2
3
 
'Définit le chemin de l'image qui va être créée.
S = "C:\imageTemp.gif"

par

Code :

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

1
2
3
 
'Définit le chemin de l'image qui va être créée.
S = ThisWorkbook.Path & "\imageTemp.gif"

et vois ce que cela donne.
J'ai testé chez moi et cela fonctionne.

A+

[skopg]

Bonsoir Davido84,

concernant la sauvegarde sous c:/ , voila ce que j'ai " Le client ne dispose pas d'un privilège nécessaire " ; je ne comprends pas car je suis l'administrateur de mon pc et le seul utilisateur.

Mais et oui il y a un mais en changeant comme dit dans ta réponse " S = ThisWorkbook.Path & "\imageTemp.gif" " ca fonctionne.

Un super merci, et , si tu peux me dire pourquoi je ne sais pas enregistrer sur Windows ..... c:/.

Par avance merci de ton temps et de ta réponse.

Bàt
skopg