Erreur d'exécution 481 Image incorrect

Bonjour,

J'ai mis plusieurs graphiques sur un userform et quand je l'ouvre un message d'erreur apparaît "Erreur d'exécution 481 Image incorrect". Pouvez-vous me dire ce qui ne fonctionne pas ?

Merci

Hello,

Deux petites choses...

D'abord, pourquoi mets tu l'UserForm aussi grand ? Je ne vois pas trop l’intérêt et pour trouver les contrôles images ce n'est pas évident puisqu'ils sont tous un peu mis n'importe comment.

Pour espérer avoir de l'aide au plus vite, il faut déjà que "la chose" soir facilement visible pour tous.

Sérieusement, j'ai dû y passer 5 bonnes minutes rien que pour trouver tous tes contrôles images et je te garantis que beaucoup de gens renoncent bien avant.

Aussi, ce n'est pas la peine d'ouvrir un autre fil pour le même sujet, enfin c'est mon avis.

Voilà après avoir fais mon petit caca mou du matin je te propose de modifier ton code "MetLimage" comme ceci...

Sub MetLimage()

    Set LeGraph = Worksheets("Feuil1").ChartObjects(1).Chart
    NomImage = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    LeGraph.Export Filename:=NomImage, FilterName:="GIF"
    UserForm1.Image1.Picture = LoadPicture(NomImage)

    Set LeGraph2 = Worksheets("Feuil1").ChartObjects(2).Chart
    NomImage2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"
    LeGraph2.Export Filename:=NomImage2, FilterName:="GIF"
    UserForm1.Image2.Picture = LoadPicture(NomImage2)

    Set LeGraph3 = Worksheets("Feuil1").ChartObjects(3).Chart
    NomImage3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif"
    LeGraph3.Export Filename:=NomImage3, FilterName:="GIF"
    UserForm1.Image3.Picture = LoadPicture(NomImage3)

    Set LeGraph4 = Worksheets("Feuil1").ChartObjects(4).Chart
    NomImage4 = ThisWorkbook.Path & Application.PathSeparator & "temp4.gif"
    LeGraph4.Export Filename:=NomImage4, FilterName:="GIF"
    UserForm1.Image4.Picture = LoadPicture(NomImage4)

    Set LeGraph5 = Worksheets("Feuil1").ChartObjects(5).Chart
    NomImage5 = ThisWorkbook.Path & Application.PathSeparator & "temp5.gif"
    LeGraph5.Export Filename:=NomImage5, FilterName:="GIF"
    UserForm1.Image5.Picture = LoadPicture(NomImage5)

    Set LeGraph6 = Worksheets("Feuil1").ChartObjects(6).Chart
    NomImage6 = ThisWorkbook.Path & Application.PathSeparator & "temp6.gif"
    LeGraph6.Export Filename:=NomImage6, FilterName:="GIF"
    UserForm1.Image6.Picture = LoadPicture(NomImage6)

    Set LeGraph7 = Worksheets("Feuil1").ChartObjects(7).Chart
    NomImage7 = ThisWorkbook.Path & Application.PathSeparator & "temp7.gif"
    LeGraph7.Export Filename:=NomImage7, FilterName:="GIF"
    UserForm1.Image7.Picture = LoadPicture(NomImage7)

    Set LeGraph8 = Worksheets("Feuil1").ChartObjects(8).Chart
    NomImage8 = ThisWorkbook.Path & Application.PathSeparator & "temp8.gif"
    LeGraph8.Export Filename:=NomImage8, FilterName:="GIF"
    UserForm1.Image8.Picture = LoadPicture(NomImage8)

End Sub

En tous les cas chez moi ça joue, mais j'avoue que je ne comprends pas vraiment pourquoi ça ne jouait pas (au début).

Sur ce, bon week à tous !