Supprimer feuille excel si elle existe
Résolu/Fermé
ath80
Patrice33740
- Messages postés
- 208
- Date d'inscription
- dimanche 15 juillet 2007
- Statut
- Membre
- Dernière intervention
- 15 mars 2018
Patrice33740
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
A voir également:
- Vba si feuille existe alors supprimer
- Vba supprimer une feuille - Meilleures réponses
- Vba supprimer une feuille si elle existe - Meilleures réponses
- Supprimer feuille excel si elle existe ✓ - Forum - Excel
- VBA Condition "Si la feuille existe" Alors... - Forum - VB / VBA
- Avec Excel, vérifier l'existance d'une feuill ✓ - Forum - Excel
- Supprimer une feuille excel par vba ✓ - Forum - Excel
- Code VBA suppression de feuilles ✓ - Forum - VB / VBA
1 réponse
Patrice33740
16 juil. 2013 à 22:53
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
16 juil. 2013 à 22:53
Code corrigé :
Public Function FeuilleInexistante(ByVal strNomFeuille As String) As Boolean FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1")) End Function Sub Macro2() Dim strNomFeuille As String strNomFeuille = "abcd" If FeuilleInexistante(strNomFeuille) Then MsgBox "Cette feuille n'existe pas dans le classeur" & ThisWorkbook.Name Else Application.DisplayAlerts = False Worksheets("abcd").Delete Application.DisplayAlerts = True End If End Sub
16 juil. 2013 à 23:00
Patrice
17 juil. 2013 à 21:03
Il me manquait juste un ' dans FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1")).
Par contre, le code pour supprimer ne fonctionnait pas:
Application.DisplayAlerts = False Worksheets("abcd").Delete Application.DisplayAlerts = True
J'ai remis le code suivant:
Sheets("abcd").Select
ActiveWindow.SelectedSheets.Delete
Ca fonctionne mais une fenêtre s'affiche et demande de cliquer sur supprimer pour valider.
Je voudrais savoir s'il est possible de modifier le message affiché ? Je voudrais mettre: Attention, les données de la semaine précédente vont être supprimées. Veuillez confirmer.
http://imageshack.com/f/5niodsp
Merci.
19 juil. 2013 à 11:41
pour le message il suffit d'ajouter un msgbox avant le w.Delete