[MichelXld]

rebonjour


Voici un exemple simple à placer dans le module objet ThisWorkbook du classeur xla.
La procédure affiche le nom des classeurs qui sont ouverts après que le complément soit lancé.

Option Explicit
 
Public WithEvents XL As Excel.Application
 

Private Sub Workbook_Open()
  Set XL = Excel.Application
End Sub
 
 
Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
    'Affiche le nom du nouveau classeur ouvert
    If Wb.Name <> ThisWorkbook.Name Then MsgBox Wb.Name
End Sub

Bon après midi
MichelXld