Probleme insertion image

Bonjour,

Je souhaite inserer une image avec le code suivant:

Code:

---

1 2 3 4 5

Set FL1 = ActiveSheet ChDir ("D:\XXX\YYY") Fichier = Application.GetOpenFilename("Classeurs Excel (*.jpg), *.jpg") If Fichier = False Then Exit Sub FL1.Pictures.Insert Fichier

---

Mais j'ai le message d'erreur suivant:
"La methode Insert de la classe Pictures à echoué.

Par avance merci.

Bonjour,

Ce qui est quand même bizarre, c'est que ça marche parfaitement chez moi comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test()   Set FL1 = ActiveSheet ChDir ("C:\Documents and Settings\andre.dorian\Bureau") Fichier = Application.GetOpenFilename("Classeurs Excel (*.jpg), *.jpg") If Fichier = False Then Exit Sub FL1.Pictures.Insert Fichier   End Sub

---

Cela marche même au poil !

Bref, sous quelle version d'Excel es-tu ?

Je suis sur Excel 2000.

Mais apres lu ton message, j'ai refais la manip et tout fonctionne.
Je ne sais pas ce que j'ai fait tout à l'heure...
Merci pour ton aide.