Discussion :

[Bonero]

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 :

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

Dans le module de code de ThisWorkbook :

Code :

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

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.