Function FichierDejaOuvert(ClasseurCible As String) As Boolean
'Étape 1: Déclaration de la variable
Dim TestBook As Workbook
'Étape 2: Excel continuera (reprise) après l'erreur
On Error Resume Next
'Étape 3: essayez d'affecter le classeur cible à TestBook
Set TestBook = Workbooks(ClasseurCible)
'Étape 4: pas d'erreur signifie que la feuille est ouverte
If Err.Number = 0 Then
FichierDejaOuvert = True
Else
FichierDejaOuvert = False
End If
End Function

Function FichierDejaOuvert(ClasseurCible As String) As Boolean
'Étape 1: Déclaration de la variable
Dim TestBook As Workbook
'Étape 2: Excel continuera (reprise) après l'erreur
On Error Resume Next
'Étape 3: essayez d'affecter le classeur cible à TestBook
Set TestBook = Workbooks(ClasseurCible)
'Étape 4: pas d'erreur signifie que la feuille est ouverte
If Err.Number = 0 Then
FichierDejaOuvert = True
Else
FichierDejaOuvert = False
End If
End Function