XL 2016 Insertion du graphique en userform

Fred0o à dit:

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 :

Code:

Dim Fichier As String

VB:

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

Cliquez pour agrandir...