VBA : Suppression d'onglets
bonjour à tous
Je suis en train de bosser sur une macro dont l'objectif est de supprimer un certain noble d'onglets sur un fichier excel que voici :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Sub reset()
Sheets("5CalendriersFrance").Select
ActiveWindow.SelectedSheets.Delete
Sheets("50CalendriersFrance").Select
ActiveWindow.SelectedSheets.Delete
Sheets("5CalendriersEtranger").Select
ActiveWindow.SelectedSheets.Delete
Sheets("50CalendriersEtranger").Select
ActiveWindow.SelectedSheets.Delete
End Sub |
Mon problème est que pour chaque feuille, il m'ouvre une message box "Les feuilles sélectionnées peuvent contenir des données. Pour supprimer définitivement les données, cliquez sur supprimer"
Bon ! Pour l'instant ce n'est pas trop un problème parce que je n'ai que quatre feuilles à fermer et basta, mais je vais bientôt en avoir plus d'une centaine, et je voudrai ne pas avoir ce message.
Merci infiniment pour votre aide,
Bien cordialement, ;)
