SELECT mytable lcCsvFile = "H:\temp\something.csv" lcExcelName = FORCEEXT(lcCsvFile, "XLS") COPY TO (lcCsvFile) TYPE CSV oExcel = CreateObject("Excel.Application") *oExcel.Visible = .T. oWorkbook = oExcel.Workbooks.Open(lcCsvFile) IF FILE(lcExcelName) ERASE (lcExcelName) ENDIF xlExcel5 = 39 oWorkbook.SaveAs(lcExcelName,xlExcel5) oExcel.Quit() * Launch Excel with file created RUN "&lcExcelName">thnx sylvain for your reply but aie aie i'm now in big troubles now....