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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
Dans le module de code de ThisWorkbook :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim X As New ClassApp Sub Init() Set X.XL = Application End sub
Merci de m’expliquer si j’ai oublié de rajouter quelque chose ou il y a quelque de trop.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Workbook_Open() Call Init End Sub
Cordiallement.
Partager