Discussion :

[rv-80]

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.

[mercatog]

Essaies ceci (à mettre dans le module Thisworkbook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

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