Bonjour à tous,

Je viens d'installer excel 2013 alors que j'avais la version 2007 juste avant. Du coup, une nouvelle erreur est apparût et sans celle-ci mon code fonctionnait très bien :/

Je tente d'afficher dans une userforme une image stockée sur le disque C au format .bmp. Le message d'erreur suivant apparait "erreur d'exécution 481, image incorrecte.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Historique2015()
 
'------------Affichage graphique Réalisation des objectifs--------
 
    Dim NomImageRealisation        As String
    Dim LeGraphiqueRealisation     As ChartObject
 
    'definition de l'image
    NomImageRealisation = "C:\ImageTDB\imageRealisation.Bmp"
    MonGraphRealisation = "Graphique 5"
    Set LeGraphiqueRealisation = Worksheets("Performance personnel").ChartObjects(MonGraphRealisation)
 
    'export du graph en image dans le disque C
    LeGraphiqueRealisation.Chart.Export NomImageRealisation, "GIF"
 
    'chargement de l'imgage créé dans l'UserForm1
    UserForm1.Image6.Picture = LoadPicture(NomImageRealisation)
 
'--------------------------------------------------------------------------------------
    UserForm1.Show
 
End Sub
Je vous remercie d'avance pour toute l'aide que vous pourriez m'apporter.

Julien