Réponse acceptée !
salut essaie un truc dans ce style normalement ca marche
dim appxls as new excel.application
dim book as excel.woorkbook
dim sheet as excel.woorksheet
appxls.visible = true
book = xlsapp.Workbooks.Open("nomclasseur")
sheet = xlsapp.Worksheets("Feuil1")
sheet.range(1, 1).Value = 5
book.Close(True, , )
xlsapp.Quit()
sheet = Nothing
book = Nothing
xlsapp = Nothing
Drikce 06