Bonjour,

J'ai besoin d'ouvrir un fichier Excel et d'y exécuter une macro depuis Access, cependant mon fichier Excel se referme avant de finir l’exécution de sa macro, j'ai donc du rajouter un Sleep mais cela ne me convient pas car j'en aurai besoin pour exécuter des macro plus longue dont je ne connais pas le temps d’exécution.
Y'a t'il une erreur dans mon code ou une meilleur façon de faire ?
Merci d'avance

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
 
Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
 
    'Ouvre Excel
    Set Xl = New Excel.Application
    Xl.Visible = True
    Set Classeur = Xl.Workbooks.Open("monfichier.xlsm")
    Sleep 1000
    'Set Feuille = Classeur.Worksheets("Feuil1")
    'Debug.Print Feuille.Range("C1")
 
    Classeur.Close True
    Xl.Quit
 
End Sub