Export de graphique

Bonjour à tous,

J'ai lue plusieurs rubriques et tutoriels concernant ce sujet mais je n'ai pas encore trouver la solution.

J'ai un classeur Excel avec une feuille MENU

j'ai d'autres feuilles F1, F2,F3 ou il y'a des graphiques.

Ce que je voudrais faire c'est une macro qui me permet d'exporter les graphiques (en gif ou en jpeg) un par un dans le répertoire de mon choix. Si quelqu'un à une idée je suis preneuse

Ci joint un aperçu du fichier de données

Merci !

Sub toto()
x=inputbox("quelle feuille")
y=inputbox("nomdugraphe")
z=inputbox("quelchemin")
a=inputbox("quelnom")
Sheets(x).chartobjects(y).select
ActiveChart.Export z & a
'exemple
' "C:\mesgraphes\monnom.jpg"
end sub

Merci mais ça ne marche pas ta solution EngueEngue j'ai déjà essayé !

Bonjour,

A tester, mais faire attention aux noms des graphiques qui doivent être différents.

Option Explicit
Public Sub RenommerGraphiques()
Dim ws As Worksheet
Dim cht As ChartObject
Dim i As Integer
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    For Each cht In ws.ChartObjects
        cht.Name = "Graphique " & ws.Name
    Next
Next
End Sub
Public Sub EnregistrerGraphiques()
Dim ws As Worksheet
Dim cht As ChartObject
Dim chemin As String, file As String
    Application.ScreenUpdating = False
    chemin = ThisWorkbook.Path & "\"
    For Each ws In ActiveWorkbook.Worksheets
        ws.Select
        For Each cht In ws.ChartObjects
            cht.Select
            file = ThisWorkbook.Path & "\" & cht.Name & ".gif"
            ActiveChart.Export Filename:=file, FilterName:="GIF"
        Next
    Next
End Sub

Génial sa marche ! Merci Jean-Eric

Preuve que l'erreur était bien tienne.

Sûrement !