Réponse acceptée !
j'éspère que cela peut vous aider:


Dim objExcel
    Dim objWorkBook
    Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Application.Visible = True

Set objWorkBook = objExcel.Workbooks.Add
objexcel.Cells(1,1).Value = "message"
objWorkBook.SaveAs ("C:\malyoumty.xls")
'Set objWorkBook = objExcel.Workbooks.Open("C:\a.xls")
'objWorkBook.Application.Quit

'objWorkBook.Close True
  Set objWorkBook = Nothing
    Set objExcel = Nothing