Discussion :

[Marcfi]

Bonjour à tous,

je souhaiterai avec un .XLA à l'ouverture d'un fichier excel qu'il execute une macro au démarrage pour faire des traitements. Mon soucis est que lorsque j'ouvre mon fichier excel, la macro du XLA ne voit pas le workbook ouvert étant donné que le XLA se charge avant le fichier excel.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Start_XLA()
 
Dim wb As Workbook
 
For Each wb In Workbooks
 MsgBox wb.Name
Next wb
 
End Sub

et dans le Thisworkbook du XLA

Code :

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

1
2
3
4
5
6
 
Public Sub workbook_Open()
 
Start_XLA
 
End Sub

[ctac_]

Bonjour,

Il faut utiliser un module de classe ClassApp par exemple.

Dans le module de ClassApp du XLA :

Code :

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

1
2
3
4
5
Public WithEvents Xlapp As Excel.Application
 
Private Sub Xlapp_WorkbookOpen(ByVal Wb As Workbook)
    If Not Wb.IsAddin Then MsgBox Wb.Name
End Sub

Dans le module ThisWorkbook du XLA :

Code :

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

1
2
3
Public Sub workbook_Open()
    Set XlClass.Xlapp = Application
End Sub

Dans un module Standard du XLA en tête de module :

Code :

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

Public XlClass As New ClassApp

Cordialement

ctac

[Marcfi]

Merci à toi ctac