Fermer tous les graphs à la fermeture du classeur Excel

Bonjour,

J'ai une macro placé dans "ThisWorkbook" qui ferme tous mes feuilles excepté celle intitulé "Accueil".

Je souhaites la modifier pour qu'elle fermme également mes graph. Mes graphs sont des courbes que j'ai déplacé et qui apparaissent comme étant une feuille. Je n'arrive pas à modifier la macro j'ai essayer en rajoutant un For et en prennat chart pour les graphiques mais sans succès. Si quelqu'un peut m'aider...

Merci d'avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Feuille As Worksheet

With Sheets("Accueil")

.Activate

End With

For Each Feuille In Sheets

If Feuille.Name <> "Accueil" Then Feuille.Visible = xlSheetVeryHidden

Next Feuille

End Sub

Bonsoir,

Voir fichier.

Cdlt

merci bien

cdlt

Re,

penses à clore le sujet

Cdlt