Ouverture Excel avec Macro

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:

---

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

---

Bonjour,

Je ne vois pas l'appel de ta macro dans ton code. Est-ce que tu fais bien l'appel de ta macro à ce niveau ?

Ah oui pardon, j'avais essayé autre chose entre temps : de mettre le nom de la macro dans la fonction open du workbook du fichier Excel directement mais enfaite ça faisait le même problème...donc j'avais enlever la ligne
Voici le code avec l'appel de la macro qui s'appelle "ConnexionServeur":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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") Xl.Run ("ConnexionServeur") Sleep 1000 Classeur.Close True Xl.Quit   End Sub

---

Tu peux tester ce code :

Code:

---

1 2 3 4 5 6 7 8

Sub test () Dim MonObjet as Object Set MonObjet = GetObject("", "Excel.Sheet") MonObjet.Application.Visible = True MonObjet.Application.Workbooks.Open "c:\temp\classeur.xls" MonObjet.Application.Run "MaMacro" Set MonObjet = Nothing End Sub

---

Merci de ta réponse

Ce code exécute bien la macro mais ne quitte pas le fichier Excel,
Peut etre devrais je mettre le code pour quitter Excel dans la macro Excel et non dans le module Access ?.

Enfaite c'est plus compliqué que je le croyais:

J'ai ma macro qui s’exécute correctement : elle me permet de me connecter à un serveur ODBC.
Enfaite c'est la requête qui est censé s’exécuter sur ouverture du fichier Excel qui n'a pas le temps de se finir avant que l'application ne quitte ! (c'est une requête connexion de données) je vois pas encore comment y arriver mais si vous avez des idées je suis preneur

Voici le code de la macro:

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub ConnexionServeur()   'Ici j'execute la requête connexion aux données ActiveWorkbook.RefreshAll   'Excel se quitte alors que la requête n'est pas fini ActiveWorkbook.Save Application.Quit End Sub

---

Ahhhhhhh j'ai trouvé, c'était tout bête ...

Il fallait juste décocher la case : "Activer l'actualisation en arrière plan" de la propriété de connexion de la requête Connexion de données !

Comme c'était en arrière plan il devait surement ne pas le prendre en compte ! :D

:ccool: