Ouvrir un fichier Excel via Access et le refermer (pour activer les macros et faire les MAJ)

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