Set ClasseurXLS = CreateObject("Excel.application")
NomFic = "historique.xls"
PathFic = "C:\Documents and Settings\Desktop\"
'Ouverture du classeur
ClasseurXLS.Visible = True 'afficher sur l'ecran le fichier
ClasseurXLS.Workbooks.Open PathFic & NomFic