IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 8 fois
Vote des utilisateurs
0 
0 
Détails
Licence : Non renseignée
Mise en ligne le 29 décembre 2011
Plate-forme : Windows
Langue : Français
Référencé dans
Navigation

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.
Avatar de skopg
Candidat au Club https://www.developpez.com
Le 30/09/2015 à 18:39
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.
Avatar de davido84
Membre confirmé https://www.developpez.com
Le 12/10/2015 à 15:49
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
1
2
3
    
'Définit le chemin de l'image qui va être créée.
S = "C:\imageTemp.gif"
par
Code : Sélectionner tout
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+
Avatar de skopg
Candidat au Club https://www.developpez.com
Le 12/10/2015 à 22:47
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
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.