Affichage d'une image .bmp impossible dans une userform (erreur d'éxécution 481)
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:
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
