Evènement - Ouverture d'un autre fichier Excel

Salut tout le monde!

Pour les besoins de mes collègues je chercher à lancer un évènement à l'ouverture d'un fichier Excel.

J'ai croisé deux trois idées sur le net, mais rien qui ne semble fonctionner.

Par exemple :

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
MsgBox "Ouverture d'un fichier"
End Sub

Que j'ai placé dans le module ThisWorkbook

Ma question : Comment lancer une macro à l'ouverture d'un autre fichier Excel ? Est-ce qu'il y a des références à rajouter pour que sa fonctionne ?

Merci par avance pour vos retours

B'zou '3'

Bonjour Juice,

essaye avec :

Private Sub Workbook_Open()

End Sub

dhany

Salut Dhany,

Merci pour ton retour rapide

Alors il me semble que l'évènement Private Sub Workbook_Open() ne permet de lancer une macro qu'à l'ouverture du fichier où cette macro se trouve.

dhany a écrit :

puis à tout hasard, regarde ce lien :

Eh bah super! J'ai modifié le code que j'y ai trouvé par :

Option Explicit
Public WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Excel.Workbook)
    If InStr(1, Wb.Name, ".xl") >= 1 Then
         MsgBox "Ouverture de fichier"
    End If
End Sub
Private Sub Workbook_Open()
    Set App = Application
End Sub

Placé dans le Module ThisWorkbook et fermé / ouvert le classeur dans lequel j'ai placé le code pour activé le Set App

Du coup, quand j'ouvre un fichier .xl (Donc Excel) j'ai bien un message

Merci encore !

merci pour ton retour, et pour le ♡ !

merci aussi d'avoir passé le sujet en résolu !

bonne continuation !

dhany