Macro supprimer pages et enregistrer

[Marie123]

Bonjour,

J'ai des TCD sur un fichier Excel qui fait apparaitre le nombre de dossiers en retard.
Mon chef, chaque lundi, va cliquer sur le résultats du TCD pour avoir la liste de dossiers, ce qui va apparaitre dans une nouvelle feuille sous le nom de "Feuil1". Il y a plusieurs TCD donc plusieurs feuilles peuvent apparaitre ("Feuil2", "Feuil3", etc).

Je souhaiterai qu'à chaque fermeture du fichier Excel, toutes les feuilles apparues de cette manière soient supprimées, et que le fichier soit enregistré automatiquement.

Est-ce faisable svp?

Merci et bonne journée

 

[DoubleZero]

Bonjour, Marie123, le Forum,

Une possibilité avec le code suivant, à tester sur un fichier "cobaye"...

Tous les onglets dont le nom commence par "Feuil" seront supprimés.

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim o As Object
    Application.DisplayAlerts = False
    For Each o In Worksheets
        If Left(o.Name, 5) = "Feuil" Then o.Delete
    Next
    Application.DisplayAlerts = True
    ActiveWindow.Close True
End Sub

A bientôt

 

[Marie123]

Bonjour et merci, malheureusement cela ne fonctionne pas, les onglets "Feuil" sont toujours là à l'ouverture du fichier....

Pour créer une macro, j'utilise le mode "enregistrer". J'ai mis ce code à la place d'un autre.
C'est peut etre ca? Je ne sais pas comment faire autrement encore....

 

[Marie123]

C'est bon ca marche! Il fallait le mettre dans "Thisworkbook" et non dans un module comme j'avais fait à la base

Merci beaucoup et bon week-end!!

 

[Marie123]

Bonjour!
Désolé de déterrer ce vieux sujet ;-)
Mais je souhaiterai supprimer toutes les feuilles commençant par "feuil" mais sans enregistrer le fichier.
Que dois-je supprimer dans la macro ci-dessus svp?
Je n'ai laissé que :

For Each o In Worksheets
If Left(o.Name, 5) = "Feuil" Then o.Delete
End Sub

Mais cela ne fonctionne pas..... si qqn peux m'expliquer svp? J'ai vraiment du mal avec les macros......
Merci et bon week-end à tous