Dim xlApp as Excel.Application
Dim xlClass as Excel.Workbook
'classeur 1
set xlApp=New Excel.Application
set xlClass=xlApp.Workbooks.open("c:\........\classeur1.xls")
' classeur 2
set xlApp =New Excel.Application
set xlClass=xlApp.Workbooks.Open("c:\.......\classeur2.xls")
..
..
..
' a la fin ne pas oublier
xlApp.Quit
set xlApp= nothing
set xlClass =Nothing