Discussion :

[nadeson]

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

[fring]

Bonjour,

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

[nadeson]

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

Code :

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

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

Mais comment l'adapter pour tous mes graphiques?

[fring]

Comme ceci :

Code :

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

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

[nadeson]

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