Autres Tester l'existence d'une feuille

Dim Fichier As Variant

Public Sub OuvrirFichier()
' Ouvre un fichier et vérifie l'existence d'une feuille "Résultat"
Dim WkB As Workbook
    Fichier = Application.GetOpenFilename("(*.xls;*.xlsm), *.xls;*.xlsm")
    If Fichier = False Then Exit Sub
   Set WkB = Workbooks.Open(Fichier)
    If FeuilleExiste("Résultat", WkB) Then
        Sheets("Résultat").Select
        Range("A2").Activate
    Else
        rep = MsgBox("Le fichier choisi n'a pas de feuille 'Résultat' ; recommencer", vbOKOnly)
        WkB.Close
    End If
End Sub

Function FeuilleExiste(NomFeuille As String, Classeur As Workbook) As Boolean
' Vérifie l'existence d'une feuille "NomFeuille" dans le classeur "Classeur"
    Dim Feuille As Worksheet
    For Each Feuille In Classeur.Worksheets
        If Feuille.Name = NomFeuille Then FeuilleExiste = True: Exit Function
    Next Feuille
End Function

Sub FeuilleExiste()
    On Error Resume Next
        Sheets("Résultats").Select
        If Err <> 0 Then
            MsgBox "La feuille n'existe pas"
            Exit Sub
        End If
    On Error GoTo 0
    MsgBox " la feuille existe"
End Sub

Public Function FeuilleExiste(NomFeuille As String, Classeur As Workbook) As Boolean
' Vérifie l'existence d'une feuille "NomFeuille" dans le classeur "Classeur"
  Dim Feuille As Worksheet 
  For Each Feuille In Classeur.Worksheets
    If Feuille.Name = NomFeuille Then
      FeuilleExiste = True
      Exit For 'ici on sort de la Boucle pas de la function donc on va vers "FeuilleExiste = False"
    End If
  Next Feuille 
  FeuilleExiste = False '(facultatif) 'Ici c'est la valeur donnée à la Fonction (à supprimer)
End Function

Function FeuilleExiste(sFeuille As String) As Boolean
    FeuilleExiste = Evaluate("ISREF('" & sFeuille & "'!A1)")
End Function

Function FeuilleExiste(sClasseur As String, sFeuille As String) As Boolean
Dim v As Variant
    v = Evaluate("ISREF('[" & sClasseur & "]" & sFeuille & "'!A1)")
    FeuilleExiste = IIf(IsError(v), False, v)
End Function

Dim Fichier As Variant
Dim WkB As Workbook
Public Sub OuvrirFichier()
' Ouvre un fichier et vérifie l'existence d'une feuille "Résultat"

    Fichier = Application.GetOpenFilename("(*.xlsm), *.xls")
    If Fichier = "Faux" Then
        Exit Sub
    End If
   
    On Error Resume Next
    If Fichier <> "" Then
      Set WkB = Workbooks.Open(Fichier)
        If FeuilleExiste("Résultat", WkB) Then
            Sheets("Résultat").Select
            Range("A2").Activate
        Else
            rep = MsgBox("Le fichier choisi n'a pas de feuille 'Résultat' ; recommencer", vbOKOnly)
            Fichier = ""
            Exit Sub
        End If
    End If
   
End Sub

Public Function FeuilleExiste(NomFeuille As String, Classeur As Workbook) As Boolean
' Vérifie l'existence d'une feuille "NomFeuille" dans le classeur "Classeur"
      FeuilleExiste = False
  Dim Feuille As Worksheet
  For Each Feuille In Classeur.Worksheets
    If Feuille.Name = NomFeuille Then
      FeuilleExiste = True
      Exit For    
    End If
  Next Feuille
End Function

Function Existe(nom) As Boolean
   On Error Resume Next: Existe = IsObject(Sheets(nom)): Err.Clear
End Function