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 :
Je vous remercie d'avance pour toute l'aide que vous pourriez m'apporter.
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
Julien
Partager