XL 2016 Insertion du graphique en userform

[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?

 

[Fred0o]

Bonjour Ecaterina

Je pense qu'il faut simplement declarer ta variable fichier. En faisant cela, ca a marche pour moi. Voir le code ci-dessous :

Dim Fichier As String

Option Explicit

Private Sub CommandButton1_Click()
'afficher le graphique dans l'userform
Dim Legraph As Chart
Dim Fichier As String
    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

 

[Ecaterina]

Bonjour Ecaterina

Je pense qu'il faut simplement declarer ta variable fichier. En faisant cela, ca a marche pour moi. Voir le code ci-dessous :

Dim Fichier As String

Option Explicit

Private Sub CommandButton1_Click()
'afficher le graphique dans l'userform
Dim Legraph As Chart
Dim Fichier As String
    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, effectivement ça marche!