Utilisation d'événements avec l'objet Application

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:

---

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:

---

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.

Essaies ceci (à mettre dans le module Thisworkbook)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private WithEvents App As Application   Private Sub InitializeApp() Set App = Application End Sub   Private Sub App_WorkbookActivate(ByVal Wb As Workbook) MsgBox Wb.Name & " Activé" End Sub   Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook) MsgBox Wb.Name & " Desactivé" End Sub

---

Bonsoir.

Je ne comprends pas bien : tu parles d'évènement de l'aplication (cela existe) et finalement tu montres 2 évènements du classeur.
Pour ces 2 évènement tu n'as pas besoin de faire de déclaration, ils sont directement disponibles dans le module du classeur (ThisWorkbook).

Ceci dit, ce que t'as donné Mercatog devrait parfaitement convenir.

Cordialement,

PGZ