Discussion :

[mr_hodor]

Bonjour le forum,

Lors de l'execution de mon programme, j'ai crée de nouvelles feuilles de calcul, qui ont ete utiles pour obtenir les données souhaitées, mais qui sont desormais inutiles. Je souhaite donc inclure des lignes supplementaires pour les supprimer. Le code

Code :

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

Sheets("Feuil4").Delete

fonctionne, mais excel me renvoit un message "vous ne pouvez pas annuler la suppression de feuilles, blablabla", a activer manuellement pour valider la suppression.
Pour supprimer une seule feuille ca va encore..
le probleme c est que j ai une dizaine de feuilles de calcul inutiles qui trainent dans mon classeur, et que ca fait perdre beaucoup de temps de renvoyer 1 message d'info pour chacune d entre elles.

Si quelqu un a une solution a mon probleme, je lui en serai tres reconnaissant

D'avance, merci

[Nico Chg]

Bonjour,

Tu peux utiliser ceci:

Code :

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

1
2
3
Application.DisplayAlerts = False
Sheets("Feuil4").Delete
Application.DisplayAlerts = True

Cordialement

[mr_hodor]

Ca fonctionne parfaitement Nico, un grand merci a toi

[Menhir]

Autre méthode :

Code :

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

1
2
Sheets("Feuil4").Move
Workbooks(Workbooks.Count).Close SaveChanges:=False