XL 2016 Insertion du graphique en userform

Ecaterina · 18 Mars 2021

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 · 19 Mars 2021

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

Ecaterina · 19 Mars 2021

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

Merci, effectivement ça marche!

XL 2016 Insertion du graphique en userform

Ecaterina

XLDnaute Nouveau

Pièces jointes

Fred0o

XLDnaute Barbatruc

Ecaterina

XLDnaute Nouveau

Discussions similaires