Dim objExcel, objFile Set objExcel = CreateObject("Excel.Application") Set objFile = objExcel.Workbooks.Open("H:\Test.xls") objExcel.ActiveWorkbook.Sheets("Feuil1").Cells.Clear objExcel.ActiveWorkbook.SaveAs "H:\Test1.xls" objExcel.ActiveWorkbook.Close objExcel.Quit Set objFile = Nothing Set objExcel = Nothing
Const MyFile = "D:\Test.xlsx" Dim objExcel Set objExcel = CreateObject("Excel.Application") With objExcel .DisplayAlerts = False .Workbooks.Open(MyFile).Sheets("Feuil1").Cells.Clear .ActiveWorkbook.SaveAs MyFile .ActiveWorkbook.Saved = True .ActiveWorkbook.Close .DisplayAlerts = True .Quit End With Set objExcel = Nothing