'Objet excel
Dim XlApp As New Excel.Application
'Objet Classeur
Dim XlWorkBook As Excel.Workbook
XlApp.Visible = True
'Ouvre un classeur neuf
Set XlWorkBook = XlApp.Workbooks.Add
'[...les mofid => Objets Worksheets... Ranges]
'Sauveagrde le classeur
Call XlWorkBook.Close(True)
'Quitte l'application
Call XlApp.Quit
'Destruction des objets
Set XlApp = Nothing
Set XlWorkBook = Nothing