Bonsoir Thierry
en exemple ci joint , une procédure qui renvoie à l'ouverture du fichier un message si le classeur appelé "test.xls" est ouvert
Private Sub Workbook_Open()
Dim classeur As Workbook
For Each classeur In Workbooks
If classeur.Name = "test.xls" Then
MsgBox "Le fichier test.xls est ouvert ."
End If
Next classeur
End Sub
Bonne soirée
Michel