Dim objExcelApp As Object Dim objWorkSheet As Object ' On ouvre Excel Set objExcelApp = CreateObject("Excel.Application") ' Un classeur et une feuille objExcelApp.WorkBooks.open ("c:\Mon classeur.xls") 'utilise la propriété .Add si le classeur existe déja Set objWorkSheet = objExcelApp.ActiveSheet ' ici on rentre les données objWorkSheet.Cells(1, 1).Value = Text1.text ' etc...... objExcelApp.Save ("C:\Mon Classeur.xls") objExcelApp.ActiveWorkbook.Close objExcelApp.quit ' on libère la mémoire objExcelApp = Nothing objWorkSheet = Nothing