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
Partager