XL 2016 vérifier si feuille existe

[KTM]

Bonsoir chers tous.
Je voudrais depuis mon fichier actif "Classeur1" exécuter ma macro "M" sur la feuille "Liste" d'un autre fichier "Classeur2".
Mais avant je voudrais vérifier si la feuille "Liste" existe dans "Classeur2".
Merci

 

[kiki29]

Salut, vite fait, à tester/adapter à ton contexte

Option Explicit

Private Function FeuilleExiste(sNomFeuille As String, Optional Wkb As Workbook = Nothing) As Boolean
Dim Ws As Worksheet
    FeuilleExiste = False
    If Wkb Is Nothing Then
        Set Wkb = ThisWorkbook
    End If
    For Each Ws In Wkb.Worksheets
        If Ws.Name = sNomFeuille Then
            FeuilleExiste = True
            Set Wkb = Nothing
            Exit For
        End If
    Next Ws
    Set Wkb = Nothing
End Function

 

[KTM]

Salut, vite fait, à tester/adapter à ton contexte

Option Explicit

Function FeuilleExiste(sNomFeuille As String, Optional Wkb As Workbook = Nothing) As Boolean
Dim Ws As Worksheet
    FeuilleExiste = False
    If Wkb Is Nothing Then
        Set Wkb = ThisWorkbook
    End If
    For Each Ws In Wkb.Worksheets
        If Ws.Name = sNomFeuille Then
            FeuilleExiste = True
            Set Wkb = Nothing
            Exit For
        End If
    Next Ws
    Set Wkb = Nothing
End Function

Merci.
Ce code fonctionne sur le classeur actif mais dans mon cas la feuille à vérifier est sur un autre classeur.

 

[kiki29]

Re, et ceci est là pour quoi ?

Optional Wkb As Workbook = Nothing

Arrête de fonctionner par psittacisme, et de recopier un code qui en plus a été modifié !

Sub Tst()
Dim NomFeuille As String
Dim Wkb As Workbook

    On Error Resume Next
    NomFeuille = "Liste"
    Set Wkb = Workbooks("Classeur2.xlsm")

    If FeuilleExiste(NomFeuille, Wkb) Then
        MsgBox NomFeuille & " existe"
    Else
        MsgBox NomFeuille & " n'existe pas"
    End If

    Set Wkb = Nothing
End Sub

 

[KTM]

Re, et ceci est là pour quoi ?

Optional Wkb As Workbook = Nothing

Arrête de fonctionner par psittacisme, et de recopier un code qui en plus a été modifié !

Sub Tst()
Dim NomFeuille As String
Dim Wkb As Workbook

    On Error Resume Next
    NomFeuille = "Liste"
    Set Wkb = Workbooks("Classeur2.xlsm")

    If FeuilleExiste(NomFeuille, Wkb) Then
        MsgBox NomFeuille & " existe"
    Else
        MsgBox NomFeuille & " n'existe pas"
    End If

    Set Wkb = Nothing
End Sub

Merci infiniment !!