[XL-2016] Sauvegarder graphique en jpeg/png ou gif

Bonjour,

Je cherche à sauvegarder les graphiques produit avec le VBA sous la forme jpeg/png ou gif et pouvoir les glisser dans un dossier précis.
J'ai essayé plusieurs code mais sans succès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
  ' Déclaration des variables
    Dim Sheets As Variant
    Dim NomSheet As String
    Dim Graph As Variant
    Dim NomGraph As String
    Dim Fich As String
    Dim i As Byte
 
    ' Boucle parcourant les feuilles
    For Each Sheets In ActiveWorkbook.Sheets
        NomSheet = Sheets.Name
        ' On ecrit dans la boite de message le nom de la feuille
        MsgBox NomSheet
        ' On parcours les graphiques de la feuille
        For Each Graph In Sheets.ChartObjects
            i = i + 1
            ' Selection d'un graphique
            Sheets.ChartObjects(i).Activate
            NomGraph = ActiveChart.Name
            ' On affiche le nom du graphique exporté
            MsgBox NomGraph
            ' Chemin où l'on veut exporter les graphiques
            Fich = "C:\Users\PC PACO\Desktop\BTS MASEN\Projet BTS\TRANSFERT\JK\Image graphique"
            ' On lance la procédure d'export
            ActiveChart.Export Filename:=Fich & NomGraph & ".gif", FilterName:="GIF"
        Next
        Next