AV

Ave,

Il n'est pas du tout indispensable/utilse de boucler sur l'ensemble des classeurs potentiellement ouverts.

Sub TestFichierOuvert()
Dim Wk As Workbook
x = ''Nom du Fichier''
On Error Resume Next
Set Wk = Workbooks(x & ''.xls'')
If Err differentde 0 Then
MsgBox ''Le fichier '' & x & '' n'est pas ouvert'
End If
End Sub

PS : remplacer differentde par le signe qui va bien

AV [aaa]