Réponse acceptée !
Salut,
Le sujet a été abordé sur le forum à plusieurs reprise fait une recherche
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 = "Mes données"
' ou on les récupère
Dim MaValeur
MaValeur = objWorkSheet.Cells(1,1).Value
' etc......
' Ensuite tu peux enregistrer ou non ton classeur
objExcelApp.Save ("C:\Mon Classeur.xls")
objExcelApp.ActiveWorkbook.Close
objExcelApp.quit
' on libère la mémoire
objExcelApp = Nothing
objWorkSheet = Nothing
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé