Sauvegader graphique excel sous format jpeg

Bonjour,
j'ai un programme qui permet de genérer plusieurs graphiques dans des feuilles à part( graph1,graph2,etc.....).
je cherche un programme qui sauvegarde sous format jpeg tous les graphiques qui se trouvent dans mon classeur. En quelque sorte un boucle qui parcours tout le classeur, et si il y'a un graph le sauvegarde sous un nom qui est celui de la feuille dans laquelle il se trouve
Merci

Bonjour,

Pour sauvegarder au format jpeg tu as déjà la solution.
Pour boucler sur tous les graphiques, tu as ceci

Merci pour ta réponse.Effectivement pour transformer en jpeg la syntaxe c'est

Code:

---

activechart.Export Filename:=ThisWorkbook.Path & "\Graph1.jpg",FilterName:="jpg"

---

Mais comment l'adapter pour tous mes graphiques?

Comme ceci :

Code:

---

1 2 3 4 5

Dim Ch As Chart   For Each Ch In ThisWorkbook.Charts Ch.Export Filename:=ThisWorkbook.Path & "\" & Ch.Name & ".jpg", FilterName:="jpg" Next

---

je te remercie, c'est exactement ce que je cherchais à faire.