Bonjour,

Tu utilises un mot réservé pour déclarer une variable argument !

Comment cela a-t-il fonctionner ? Je donne ma langue au chat !

Function SheetExist(ByRef Name As String) As Boolean

Le mot [ Name ] est un mot réservé servant de propriété pour
nommer un objet.

Utilise plutôt :

Function SheetExist(ByRef MyName As String) As Boolean

Second point :

Il n'est pas nécessaire de passer l'argument [ ByRef ],
tu n'as pas à modifier ce nom il me semble, le paramètre
peut-être passer avec le paramètre [ ByVal ].

Et voici ma façon de procéder :

Option Explicit

Function SheetsExists(ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ThisWorkbook.Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'

Re:

Bien que j'ai une critique sévère sur le code, ne t'en fait pas,
car moi aussi, j'ai été débutant et j'ai eu aussi, en mon temps
des personnes qui m'ont aidé et expliqué les choses !

Ceci dit, excuse mon texte si celui-ci est parfois trop critique !

Bonne soirée.

Lupin

Re:

Quelques variantes :

Function SheetsExists(ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ThisWorkbook.Worksheets
    'For Each MySheet In ActiveWorkbook.Worksheets
    'For Each MySheet In Workbooks("MonFichier.xls").Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'

Bonjour Ludivine,

D'un premier coup d'oeil, je dirais
que la fonction ne cherche pas dans
le bon classeur.

L'instruction suivante s'applique
au classeur actif.

For Each MySheet In ActiveWorkbook.Worksheets

La solution est de passer le classeur en paramètre :

Function SheetsExists(ByVal MonClasseur As Workbook, _
                      ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet, Classeur As String
    
    Classeur = ActiveWorkbook.Name
    MonClasseur.Activate
    SheetsExists = False
    For Each MySheet In MonClasseur.Worksheets
        If (MySheet.Name = MyName) Then
            SheetsExists = True
            Exit For
        End If
    Next
    Workbooks(Classeur).Activate

End Function
'

Re :

Voilà un exemple :

n.b. J'ai ajouté l'instruction [ Ucase ], au cas ou il y aurait un problème de majuscule/miniscule.

Option Explicit

Sub Test()
    If SheetsExists(Workbooks("fichiertest.xls"), "test") Then
        MsgBox ("ok")
    Else
        MsgBox ("faux")
    End If
End Sub
'

Function SheetsExists(ByVal MonClasseur As Workbook, _
                      ByVal MyName As String) As Boolean

    Dim MySheet As Worksheet
    
    MsgBox (MonClasseur.Name)

    SheetsExists = False
    For Each MySheet In MonClasseur.Worksheets
        If (UCase(MySheet.Name) = UCase(MyName)) Then
            SheetsExists = True
            Exit For
        End If
    Next

End Function
'

Re:

J'en conviens c'est assez nébuleux et je ne connais pas l'historique des postes,
le type d'installation, etc ...

En fait, lorsque je t'ai proposé de passer le nom du classeur en paramêtres
j'avais une idée derrière la tête bien sur.

Je ne connais que très peu l'utilisation d'un fichier du type [ *.xlb ], les barres
d'outils si je ne m'abuse, je connais très bien les [ *.xla ] et [ *.xlt ].
Et je n'utilise pas non plus les fichier [ perso.xls ] placé dans le répertoire
XLStart du système.

Donc, quand to ouvre Excel, tous les XLA chargés peuvent être adressé
comme des "workbooks" sous VBA.

D'un poste à l'autre, beaucoup de chose peuvent influencer,
différentes macros complémentaires ou références VBA
supplémentaires demanderont d'être plus explicite dans le code pour ne pas
confondre les "espaces de noms", plusieurs classeurs peuvent aussi
être ouvert au moment de faire appel à la fonction, le niveau de sécurité
pourrait aussi être en cause.

Si tu souhaite creusé la question, voici une suggestion :

En passant une troisième variable passer par [ Référence ] [ ByRef ].

À noter que l'on place toujours le paramêtre [ ByRef ] en fin de liste de déclaration :

Mauvaise syntaxe :

Function SheetsExists(ByRef Liste As String, _
	  ByVal MyName As Workbook) As Boolean

Function SheetsExists(ByVal MyName As String, _
	  ByRef Liste As String) As Boolean

    Dim MySheet As Worksheet
    
    SheetsExists = False
    For Each MySheet In ActiveWorkbook.Worksheets
           Liste = Liste & MySheets.Name & vbLf