Déclencher une macro à l'ouverture de tout nouveau classeur ouvert ou créé

[ouskel'n'or]

Dans un module standard

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim X As New Classe1
 
Sub Lister()
Dim NomFich As String, chemin as string
    Chemin = "D:\LeRep\"
    NomFich = Dir(Chemin, vbNormal)
    Do While NomFich <> ""
        Ouvrir Chemin & NomFich
        NomFich = Dir()
    Loop
End Sub
 
'Pour ouvrir un fichier 
Sub Ouvrir(NomFich as string)
    Set X.App = Application
    Workbooks.Open NomFich
End Sub

Dans un module de classe nommé classe1, tu mets ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public WithEvents App As Application
 
'S'il s'agit de lancer la macro lors de la création d'un nouveau classeur
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "coucou"
    'ou le code...
End Sub
'La création consécutive de plusieurs nouveaux fichiers dans une boucle 
'provoque l'événement NewWorkbook pour chaque fichier.
 
'S'il s'agit de lancer la macro lors de l'ouverture d'un classeur existant
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    MsgBox "coucou"
    'ou le code...
End Sub
'L'ouverture consécutive de plusieurs fichiers dans une boucle provoque
'l'événement WorkbookOpen pour chaque fichier.

Ce code est à placer dans un classeur actif.

[SilkyRoad]

bonjour Joel

Il y a également un exemple dans la FAQ :

Comment identifier automatiquement l'ouverture de nouveaux classeurs ?


bon week end
michel

[ouskel'n'or]

Merci Michel,
Effectivement, ton exemple implique l'utilisation d'un xla.
Le but du code que j'ai mis est donc de permettre d'obtenir le nom des fichiers ouverts depuis un classeur.xls.
Bonne journée