Dim MyXL As Object
Dim cheminBase As String
'Va rechercher le répertoire ou se trouve le fichier
cheminBase = CurrentProject.Path & "\"
'Ouverture du fichier Excel
'Set MyXL = GetObject(cheminBase & "\nomFichier.xls")
'Objet de type Excel
Set xlApp = CreateObject("Excel.Application")
'Affectation du nom du fichier a l'objet
Set MyXL = xlApp.Workbooks.Open(cheminBase & "\nomFichier.xls")
'Affiche les fenetres
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
'Code Temp pour laisser ouvert le fichier
Call Tempo(300)
'Enregistre le fichier
MyXL.Save
'Marque des temps d'arrets
Call Tempo(300)
'fermeture du fichier
MyXL.Close
'Quitte Excel
xlApp.Quit