Bonsoir Sg,
Tu peux utiliser la fonction suivante :
Function FichOuvert(F As String) As Boolean
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F) '(Merci à Ti pour cette astuce)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function
Pour tester le fichier "MonClasseur.xls" :
MsgBox "Fichier " & IIf(FichOuvert("MonClasseur.xls"), "", "NON ") & "ouvert."
Cordialement,
Didier_mDF