Discussion :

[Superpat9999]

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

[anasecu]

Bonjour,

Avec ce code dans Thisworkbook cela devrait fonctionner :

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
    Call init
End Sub

[Superpat9999]

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.

[anasecu]

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

[eriiic]

Bonjour à tous,

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

Code :

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

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

[Superpat9999]

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

Code :

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

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