Bonjour,

Je programme en VBA-Excel 2003
Je veux créer 2 procédures d'événements qui font une action lorsque je change de classeur et lorsque je reviens dans le classeur.

J'ai créé une module de classe nommé "Classe1" et un module standard.
Dans le module de classe j'ai le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public WithEvents App As Application
 
Private Sub Workbook_Activate()
  MsgBox "Classeur ACTIVÉ"
End Sub
 
Private Sub Workbook_Deactivate()
  MsgBox "Classeur DÉSACTIVÉ"
End Sub
Dans le module standard j'ai le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim X As New Classe1
 
Sub InitializeApp()
  Set X.App = Application
End Sub
J'exécute la procédure "InitializeApp" puis je change de classeur et reviens à ce classeur mais rien ne se passe.

Merci pour votre aide.