Discussion :

[zeralium]

Bonjour,

Je souhaite inserer une image avec le code suivant:

Code :

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

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.

[DeaD78]

Bonjour,

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

Code :

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

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 ?

[zeralium]

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.