Insertion du graphique dans le userform - erreur

Résolu

Ecaterina -
Ecaterina - 19 mars 2021 à 09:32

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

A voir également:

Insertion du graphique dans le userform - erreur
Changer carte graphique - Guide
Insertion sommaire word - Guide
Insertion liste déroulante excel - Guide
Touche insertion clavier - Guide
Erreur 0x80070643 - Accueil - Windows

2 réponses

Réponse 1 / 2

f894009 Messages postés 17272 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 2

Ecaterina

Merci beaucoup, ça marche!

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Nuages de point avec abscisses différentes

Erreur 3005 sur France TV

Votre réponse

Discussions similaires