Excel-VB:Supprimer une feuille non vierge

filou260381 Messages postés 4 Date d'inscription samedi 13 novembre 2004 Statut Membre Dernière intervention 18 août 2005 - 12 août 2005 à 09:15
sacha1435 Messages postés 94 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 12 octobre 2005 - 12 août 2005 à 13:38
Bonjour,

je débute sous VB et j'ai besoin de votre aide...

J'essaie de supprimer des feuilles du classeur Excel que j'ai ouvert. Si les feuilles sont vierges, pas de problème par contre, je n'arrive pas à supprimer les feuilles sur lesquelles j'ai déjà écrit quelquechose. Je n'ai aucun message d'erreur ou demande de confirmation de suppression pendant l'exécution de mon programme, mais quand j'ouvre mon fichier Excel après, les pages sont toujours là!

Voici mon bout de code:
Dim FeuilleASupprimer As Worksheet
Set FeuilleASupprimer=ActiveWorkbook.Sheets(NomFeuilleASupprimer)
FeuilleASupprimer.Delete

J'attends vos solutions avec impatience.

Merci d'avance.

filou

3 réponses

Paladin2107 Messages postés 154 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 5 septembre 2008 1
12 août 2005 à 10:21
application.displayalerts = False
Worksheets(NomFeuilleASupprimer).delete

Couscous
0
filou260381 Messages postés 4 Date d'inscription samedi 13 novembre 2004 Statut Membre Dernière intervention 18 août 2005
12 août 2005 à 10:26
Merci beaucoup pour ton aide.
Ca marche parfaitement!

à +

filou
0
sacha1435 Messages postés 94 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 12 octobre 2005 2
12 août 2005 à 13:38
Salut,

N'oublie pas de remettre
application.displayalerts = True a la fin du code
sinon tu va avoir des soucis

Sacha

\!/
00
!
0
Rejoignez-nous