D'un form VBA Access vers Excell

Option Compare Database
Option Explicit

Public gExcelApp As Excel.Application

Private Sub Class_Initialize()
    
   On Error GoTo NoExcelLaunched
   
   gExcelAppLaunched = False
   
   'Try to get Excel application (if running)
   Set gExcelApp = GetObject(, "Excel.Application")
   GoTo CommonEnd

NoExcelLaunched:
   On Error GoTo EndOfSub
   'No Excel running => Creation
   Set gExcelApp = CreateObject("Excel.Application")

CommonEnd:
   Exit Sub

EndOfSub:
   MsgBox "Error occured during launch Excel application (class ExcelClass)"

End Sub

Private Sub Class_Terminate()
    
   Set gExcelApp = Nothing

End Sub

Dim lExcel As MSExcel_Class
Set lExcel = New MSExcel_Class
...
lExcel.gExcelApp.Workbooks.Add
...
Set lExcel = Nothing