Je vais mettre la solution,
'**********************************************************************
' Script Visual Basic ActiveX
'************************************************************************
Function Main()
Main = DTSTaskExecResult_Success
file = "c:\tmp\test.xls"
Set objXL = CreateObject ("Excel.Application" )
Set objWb = objXl.WorkBooks.Open(file)
Set objWb = objXL.ActiveWorkBook.WorkSheets("Feuil1" )
objWb.Activate ' not absolutely necessary (for CSV)
objXl.ActiveSheet.PrintOut
objXl.Quit()
End Function
Voilà en vous remerciant :-)