Logique Feuille_Existe()

Nairolf à dit:

Petite modification (déclaration de la variable Nom_Feuille en chaîne de caractères) à partir du code de patricktoulon : sheetsExiste
J'ai aussi supprimé les éléments qui me semblaient non nécessaires (si je ne me trompe pas).

VB:

Function Feuille_Existe(Nom_Feuille As String) As Boolean
    Application.Volatile
    Dim Test_Objet As Worksheet
    Set Test_Objet = Worksheets(Nom_Feuille)
    If Not Test_Objet Is Nothing Then Feuille_Existe = True
End Function

Cliquez pour agrandir...