Dim exc As New Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set exc = CreateObject("excel.Application") Set wb = exc.Workbooks.Add Set ws = wb.ActiveSheet ws.Cells(1, 1).Value = mavaleur exc.Visible = True
Call wb.SaveAs(NomFichier, xlNormal, "", "", False, False, xlNoChange)
exc.Quit