Dim wkbkdestination As Workbook
Dim destsheet As Worksheet

For Each ThisWorkSheet In wkbkorigin.Worksheets 
    'this throws subscript out of range if there is not a sheet in the destination 
    'workbook that has the same name as the current sheet in the origin workbook.
    Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) 
Next

Fondamentalement, je boucle sur toutes les feuilles du classeur d'origine puis définissez destsheet dans le classeur de destination la feuille portant le même nom que celui actuellement itéré dans le classeur d'origine.

Comment puis-je tester si cette feuille existe? Quelque chose comme:

If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then 

Certaines personnes n'aiment pas cette approche en raison d'une utilisation "inappropriée" de la gestion des erreurs, mais je pense qu'elle est considérée comme acceptable dans VBA ... Une autre approche consiste à parcourir toutes les feuilles jusqu'à ce que vous trouviez une correspondance.

Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet

    If wb Is Nothing Then Set wb = ThisWorkbook
    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function

Si vous êtes spécifiquement intéressé par les feuilles de calcul uniquement, vous pouvez utiliser un simple appel Evaluate:

Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function

Vous n'avez pas besoin de gestion des erreurs pour ce faire. Tout ce que vous avez à faire est de parcourir toutes les feuilles de calcul et de vérifier si le nom spécifié existe:

For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "MySheet" Then
        exists = True
    End If
Next i

If Not exists Then
    Worksheets.Add.Name = "MySheet"
End If

La vérification des membres d'une collection étant un problème général, voici une version abstraite de la réponse de Tim:

Function Contains (objCollection As Object, strName as String) As Boolean
    Dim o comme objet
    En cas d'erreur Reprendre suivant
    set o = objCollection (strName)
    Contient = (Err.Number = 0)
    Err.Clear
 Fonction de fin

Cette fonction peut être utilisée avec toute collection comme objet ( Shapes, Range, Names, Workbooks, etc.).

Pour vérifier l'existence d'une feuille, utilisez If Contains(Sheets, "SheetName") ...

Corrigé: sans gestion des erreurs:

Function CheckIfSheetExists(SheetName As String) As Boolean
      CheckIfSheetExists = False
      For Each WS In Worksheets
        If SheetName = WS.name Then
          CheckIfSheetExists = True
          Exit Function
        End If
      Next WS
End Function

Au cas où quelqu'un voudrait éviter VBA et tester si une feuille de calcul existe uniquement dans une formule de cellule, il est possible d'utiliser les fonctions ISREFet INDIRECT:

=ISREF(INDIRECT("SheetName!A1"))

Cela reviendra TRUEsi le classeur contient une feuille appelée SheetNameet FALSEautrement.

J'ai écrit celui-ci:

Function sheetExist(sSheet As String) As Boolean
On Error Resume Next
sheetExist = (ActiveWorkbook.Sheets(sSheet).Index > 0)
End Function

Ma solution ressemble beaucoup à Tims mais fonctionne également en cas de feuilles sans feuille de calcul - graphiques

Public Function SheetExists(strSheetName As String, Optional wbWorkbook As Workbook) As Boolean
    If wbWorkbook Is Nothing Then Set wbWorkbook = ActiveWorkbook 'or ThisWorkbook - whichever appropriate
    Dim obj As Object
    On Error GoTo HandleError
    Set obj = wbWorkbook.Sheets(strSheetName)
    SheetExists = True
    Exit Function
HandleError:
    SheetExists = False
End Function

.

Mettez le test dans une fonction et vous pourrez le réutiliser et vous aurez une meilleure lisibilité du code.

N'utilisez PAS le "On Error Resume Next" car il peut entrer en conflit avec une autre partie de votre code.

Sub DoesTheSheetExists()
    If SheetExist("SheetName") Then
        Debug.Print "The Sheet Exists"
    Else
        Debug.Print "The Sheet Does NOT Exists"
    End If
End Sub

Function SheetExist(strSheetName As String) As Boolean
    Dim i As Integer

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = strSheetName Then
            SheetExist = True
            Exit Function
        End If
    Next i
End Function

Plusieurs années de retard, mais j'avais juste besoin de le faire et je n'ai aimé aucune des solutions affichées ... Alors j'en ai inventé une, tout cela grâce à la magie du (geste des mains arc-en-ciel de SpongeBob) "Evaluate ()"!

Evaluate("IsError(" & vSheetName & "!1:1)")

Renvoie TRUE si la feuille n'existe PAS; FALSE si la feuille existe. Vous pouvez remplacer la plage de votre choix pour "1: 1", mais je déconseille d'utiliser une seule cellule, car si elle contient une erreur (par exemple, # N / A), elle retournera True.

wsExistsFonction compacte _{^{( sans dépendre de la gestion des erreurs!)}}

Voici une fonction courte et simple qui ne repose pas sur la gestion des erreurs pour déterminer si une feuille de calcul existe ( et est correctement déclarée pour fonctionner dans n'importe quelle situation!)

Function wsExists(wsName As String) As Boolean
    Dim ws: For Each ws In Sheets
    wsExists = (wsName = ws.Name): If wsExists Then Exit Function
    Next ws
End Function

Exemple d'utilisation:

L'exemple suivant ajoute une nouvelle feuille de calcul nommée myNewSheet, si elle n'existe pas déjà:

If Not wsExists("myNewSheet") Then Sheets.Add.Name = "myNewSheet"

Plus d'information:

• MSDN: For Each… NextDéclaration (VBA)
• MSDN: Exitdéclaration (VBA)
• MSDN: Opérateurs de comparaison (VBA)

Pourquoi ne pas simplement utiliser une petite boucle pour déterminer si la feuille de calcul nommée existe? Dites si vous recherchez une feuille de calcul nommée «Sheet1» dans le classeur actuellement ouvert.

Dim wb as Workbook
Dim ws as Worksheet

Set wb = ActiveWorkbook

For Each ws in wb.Worksheets

    if ws.Name = "Sheet1" then
        'Do something here
    End if

Next

Si vous êtes fan de WorksheetFunction.ou que vous travaillez dans un pays non anglais avec un Excel non anglais, c'est une bonne solution, qui fonctionne:

WorksheetFunction.IsErr(Evaluate("'" & wsName & "'!A1"))

Ou dans une fonction comme celle-ci:

Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Not WorksheetFunction.IsErr(Evaluate("'" & sName & "'!A1"))
End Function

Public Function WorkSheetExists(ByVal strName As String) As Boolean
   On Error Resume Next
   WorkSheetExists = Not Worksheets(strName) Is Nothing
End Function

sub test_sheet()

 If Not WorkSheetExists("SheetName") Then
 MsgBox "Not available"
Else MsgBox "Available"
End If

End Sub

    For Each Sheet In Worksheets
    If UCase(Sheet.Name) = "TEMP" Then
    'Your Code when the match is True
        Application.DisplayAlerts = False
        Sheet.Delete
        Application.DisplayAlerts = True
    '-----------------------------------
    End If
Next Sheet

Remplacez "Données" par le nom de la feuille que vous testez ...

On Error Resume Next 

Set DataSheet = Sheets("Data")

If DataSheet Is Nothing Then

     Sheets.Add(after:=ActiveSheet).Name = "Data"
     ''or whatever alternate code you want to execute''
End If

On Error GoTo 0

Sans aucun doute que la fonction ci-dessus peut fonctionner, je viens de me retrouver avec le code suivant qui fonctionne plutôt bien:

Sub Sheet_exist ()
On Error Resume Next
If Sheets("" & Range("Sheet_Name") & "") Is Nothing Then
    MsgBox "doesnt exist"
Else
    MsgBox "exist"
End if
End sub

Remarque: Sheets_Namec'est là que je demande à l'utilisateur de saisir le nom, donc ce n'est peut-être pas la même chose pour vous.

J'ai fait autre chose: supprimer une feuille uniquement si elle existe - ne pas avoir d'erreur si ce n'est pas le cas:

Excel.DisplayAlerts = False 
Dim WS
For Each WS In Excel.Worksheets
    If WS.name = "Sheet2" Then
        Excel.sheets("Sheet2").Delete
        Exit For
    End If
Next
Excel.DisplayAlerts = True

J'ai trouvé un moyen simple de le faire, mais je n'ai pas créé de nouveau sous-marin pour cela. Au lieu de cela, j'ai juste "fait une vérification" dans le sous-marin sur lequel je travaillais. En supposant que le nom de la feuille que nous recherchons est "Sheet_Exist" et que nous voulons simplement l'activer s'il est trouvé:

Dim SheetCounter As Integer

SheetCounter = 1

Do Until Sheets(SheetCounter).Name = "Sheet_Exist" Or SheetCounter = Sheets.Count + 1
 SheetCounter = SheetCounter +1
Loop
If SheetCounter < Sheets.Count + 1 Then
 Sheets("Sheet_Exist").Activate
Else
 MsgBox("Worksheet ""Sheet_Exist"" was NOT found")
End If

J'ai également ajouté une fenêtre contextuelle lorsque la feuille n'existe pas.

Je sais que c'est un ancien post, mais voici une autre solution simple et rapide.

Public Function worksheetExists(ByVal wb As Workbook, ByVal sheetNameStr As String) As Boolean

On Error Resume Next
worksheetExists = (wb.Worksheets(sheetNameStr).Name <> "")
Err.Clear: On Error GoTo 0

End Function

Court et propre:

Function IsSheet(n$) As Boolean
    IsSheet = Not IsError(Evaluate(n & "!a1"))
End Function

En fait, j'avais un moyen simple de vérifier si la feuille existe, puis d'exécuter une instruction:

Dans mon cas, je voulais supprimer la feuille puis recréer la même feuille avec le même nom mais le code a été interrompu si le programme n'était pas en mesure de supprimer la feuille car elle était déjà supprimée

Sub Foo ()

    Application.DisplayAlerts = False

    On Error GoTo instructions
    Sheets("NAME OF THE SHEET").Delete

    instructions:

    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "NAME OF THE SHEET"

End Sub