Insertion du graphique dans le userform - erreur [Résolu]

Signaler
-
 Ecaterina -
Bonjour!

Encore une fois je pose la question, car je suis débutante en VBA et je ne connais pas encore tout.

J'ai un souci, car j'ai trouvé un code pour insérer le graphique dans l'userform (dans plusieurs sources) et pourtant ce code ne marche pas dans mon cas. Le code est le suivant:



Private Sub CommandButton1_Click()
'afficher le graphique dans l'userform

Dim Legraph As Chart

Set Legraph = Worksheets("Graphiques").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
Legraph.Export Filename:=fichier, FilterName:="GIF"
Image1.picture = LoadPicture(fichier)
Kill fichier

End Sub

Pourriez-vous m'indiquer l'erreur qui se produit s'il vous plait?
Voici mon fichier: https://www.cjoint.com/c/KCsw1Dlh0XD

2 réponses

Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
1 502
Bonjour,

Il y avait l'erreur variable non definie avec
Option Explicit
au debut . Il faut donc definir toutes les variables

Option Explicit

Private Sub CommandButton1_Click()
    'afficher le graphique dans l'userform
    
    Dim Legraph As Chart
    Dim Fichier
    
    Set Legraph = Worksheets("Graphiques").ChartObjects(1).Chart
    Fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
    Legraph.Export Filename:=Fichier, FilterName:="GIF"
    Image1.Picture = LoadPicture(Fichier)
    Kill Fichier
    
End Sub
Merci beaucoup, ça marche!