Probleme avec Evenement Application
Bonjour tout le monde,
Quelqu ‘un aurait il la gentillesse de m’expliquer pourquoi mon code ne marche pas ? en fait je veux afficher un message a chaque ouverture de tout classeur Excel existant sur mon pc.(cad un classeur qui a ete deja enregistré).
Dans un module de classe nommé ClassApp je mets :
Code:
1
2
3
4
| Public WithEvents XL As Application
Private Sub XL_WorkbookOpen(ByVal Wb As Excel.Workbook)
MsgBox "Ouverture du classeur : " & Wb.FullName
End Sub |
Dans un module standard je mets :
Code:
1
2
3
4
| Dim X As New ClassApp
Sub Init()
Set X.XL = Application
End sub |
Dans le module de code de ThisWorkbook :
Code:
1
2
3
4
| Private Sub Workbook_Open()
Call Init
End Sub |
Merci de m’expliquer si j’ai oublié de rajouter quelque chose ou il y a quelque de trop.
Cordiallement.
