j'espere que le fichier joint pourra t'aider . Attention lors de la saisie du nom du classeur ( le contrôle est sensible aux minuscules et majuscules )
Sub VerifClasseurOuvert()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "Classeur1" Then
MsgBox "Le Classeur est ouvert ."
Exit Sub
End If
Next Wb
MsgBox "Le classeur n'est pas ouvert . "
End Sub