Lancer macro à l'ouverture de certains fichiers

Bonjour,
Je reçois des fichiers bancaires au format XLS qui ont tous un nom différent, qui commence par "CA20" (CA20191115.../CA20191116...), je souhaite qu'en double cliquant sur le fichier, une macro "Init" se lance au démarrage d'Excel.
Est-ce possible ?
Merci d'avance pour votre aide

Bonjour,

Avec ce code dans Thisworkbook cela devrait fonctionner :

Code:

---

1 2 3 4

Private Sub Workbook_Open() Call init End Sub

---

Je précise que ce n'est jamais le même fichier. Donc Workbook_Open() où le mettre ?
Que j'ai créée un fichier XLA, il s'ouvre avant le XLS.

Donc Workbook_Open() où le mettre ? : dans ton fichier XLA

Bonjour à tous,

regarde du coté des méthodes d'Application.
Dans ThisWorkbook :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private WithEvents App As Application   Private Sub Workbook_Open() 'récupérer l'application Excel à l'ouverture Set App = Application End Sub   ' exemples événements Application ' Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 'ouverture d'un classeur Debug.Print Wb.Name Stop End Sub

---

Pour être effectif Workbook_Open() doit avoir été exécuté. La lancer manuellement pour pouvoir tester sans devoir fermer-ouvrir.
A relancer si tu modifies un des codes concernés.

App_WorkbookOpen sera exécuté à chaque ouverture de classeur quel qu'il soit, même un xlsx.
eric

Merci eriiic, et à tout ceux qui m'ont répondu.
C'est parfait. Le code fonctionne parfaitement :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private WithEvents App As Application   Private Sub Workbook_Open() 'récupérer l'application Excel à l'ouverture Set App = Application End Sub   ' exemples événements Application ' Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 'ouverture d'un classeur Debug.Print Wb.Name If Left(Wb.Name, 4) = "CA20" Then Call InitVariables End If 'Stop End Sub

---