Sub test()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "mon STOCK.xls" Then ' Respectes Minuscules/Majuscules
MsgBox "Workbook " & Wb.Name & " déjà ouvert"
Exit For
End If
Next Wb
If Wb Is Nothing Then
' macro que je veux si le fichier est fermé
MsgBox "macro que je veux si le fichier est fermé"
End If
End Sub