Sujet Précédent Sujet Suivant

Supprimer feuille excel si elle existe

Résolu/Fermé
Feuille
ath80
Messages postés
208
Date d'inscription
dimanche 15 juillet 2007
Statut
Membre
Dernière intervention
15 mars 2018
 - 16 juil. 2013 à 22:39
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
 - 19 juil. 2013 à 11:41
Bonjour,

Je voudrai supprimer une feuille excel si celle-ci existe. J'ai fait un exemple avec une feuille nommée abcd.

Voici ce qui est rentré dans un module:

Public Function FeuilleInexistante(ByVal strNomFeuille As String) As Boolean

FeuilleInexistante = IsError(Evaluate("=" & strNomFeuille & "'!A1"))

End Function

Voici la macro:

Sub Macro2()
Dim strNomFeuille As String

strNomFeuille = "abcd"

If FeuilleInexistante(strNomFeuille) Then
MsgBox "Cette feuille n'existe pas dans le classeur" & ThisWorkbook.Name
Else
Sheets("abcd").Select
ActiveWindow.SelectedSheets.Delete
End If

End Sub

Ce que j'ai fait ne fonctionne pas. Pouvez vous m'aider ?
Merci.

A voir également:

1 réponse

Réponse 1 / 1
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
 1 750
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
1
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
 1 750
16 juil. 2013 à 23:00
Mais je l'aurais écris comme suit : 
Sub x()
Dim w As Worksheet
  On Error Resume Next
  Set w = Worksheets("abcd")
  On Error GoTo 0
  If w Is Nothing Then
    MsgBox "Cette feuille n'existe pas dans le classeur " & ThisWorkbook.Name
  Else
    Application.DisplayAlerts = False
    w.Delete
    Application.DisplayAlerts = True
  End If
End Sub

Patrice
0
ath80
Messages postés
208
Date d'inscription
dimanche 15 juillet 2007
Statut
Membre
Dernière intervention
15 mars 2018
 9
17 juil. 2013 à 21:03
Bonjour,
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.
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
 1 750
19 juil. 2013 à 11:41
Essaies le code ci-dessus il doit fonctionner !!!
pour le message il suffit d'ajouter un msgbox avant le w.Delete
0

Discussions similaires

imprimer fiche bristole format A5
dartslove -
contrariness -

3 réponses
relier des fichiers Excel pour synchroniser automatiquement
pete -
jeanot017 -

4 réponses
protéger toutes les Feuilles en meme temps
delta70 -
foo -

3 réponses
Enregistrer un publipostage en pdf en séparant chaque feuille
ALison -
Bruce Willix -

3 réponses
Selectionner plusieurs feuilles avec VBA
Tessel75 -
Tessel75 -

9 réponses
Formule lien vers autre feuille d'un même classeur
Raphdu -
Raphdu -

2 réponses