Ouvrir un fichier Excel a partir d'une commande VB

'Déclaration des variables
Dim xlsapp as Excel.Application
Dim Xlsbook as Excel.Workbook
Dim Xlsheet as Excel.Woksheet
 
'lancement d'excel et ouverture du fichier
Set xlsapp = New Excel.application
set xlsbook = xlsapp.workbooks.Open("Chemin+Nom du fichier.xls")
set Xlsheet = xlsbook.Worksheets(N°Feuille a activer)
 
Xlapp.Visible = true
 
'déchargement d'excel
Set xlsheet = nothing
set Xlsbook = nothing
Excel.Application.Quit
Set Xlsapp = nothing