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.