Lancer macro Excel et fermer Excel depuis Access

Bonjour,

Je cherche à exécuter une macro excel depuis access.

En faisant des recherches sur internet, j'ai trouvé un code qui fonctionne :

Code:

---

1 2 3 4 5 6

Dim MonObjet As Object Set MonObjet = GetObject("", "Excel.Sheet") MonObjet.Application.workbooks.Open "C:\Données.xls" MonObjet.Application.Run "Macro1" MonObjet.Application.workbooks.Close Set MonObjet = Nothing

---

(Je souhaite que tout le traitement soit invisible pour l'utilisateur, c'est pourquoi je n'ai pas activé la fonction "visible = true").

1) Le code s'exécute parfaitment, mais tous les classeurs excel sont fermés à la fin. Je ne souhaite fermer que le classeur "données.xls". Je sens que ça tient à peu de choses, mais quelqu'un peut-il me proposer une astuce svp ?

2) Lorsque je lance ce code alors qu'un classeur excel (différent de données.xls) est déjà ouvert, excel s'affiche et le traitement n'est plus transparent. Y a t-il quelque chose à faire ?

Merci d'avance !

Bonjour,

à la place de ce code, je te recommande celui-ci
http://access.developpez.com/faq/?page=Excel#PilotExcel

la :faq: regorge de codes tout faits ;)

-créer une nouvelle instance d'Excel.Application et la fermer à la fin

Merci pour ton lien, je n'étais pas tombé dessus au cours de mes recherches. J'ai remplacé mon code par celui ci :

Code:

---

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

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook   Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("c:\Données.xls")   xlBook.Application.Run "Macro1"   xlBook.Save xlApp.Quit   Set xlBook = Nothing Set xlApp = Nothing

---

Je suis tombé sur un os... Mon fichier Données.xls a besoin d'une macro complémentaire pour lancer la macro. Le problème étant que lorsqu'on utilise Set xlApp = CreateObject("Excel.Application"), la version d'excel qui est ouverte est une version "de base", sans la macro complémentaire dont j'ai besoin.

En fait j'air réglé le problème de la macro complémentaire en ajoutant ceci :

Code:

---

1 2	xlBook.Application.AddIns("MacroComp").Installed = False xlBook.Application.AddIns("MacoComp").Installed = True

---

Maintenant ça marche pas mal mais nouveau problème : une instance de Excel reste ouverte dans le Gestionnaire des Tâches après l'exécution du code et la fermeture théorique de l'application Excel...

en principe si tu close ton workbook et quit ton appli, ca kill l'instance que tu as créée.

J'ai ajouté xlBook.Close mais rien n'y fait le processus est toujours là.

Je viens de parler avec un informaticien qui m'a dit que c'était un bug sous 2003 qu'on ne peut pas contourner.

Je pense que je vais m'orienter vers une autre solution.

Merci JpCheck pour ton soutien.

ah, je dois avoir une version debuggée de 2003 moi alors :aie:

voila ma séquence hors code annexe qui kill l'instance :

Code:

---

1 2 3 4 5 6 7 8 9

Dim XLapp As Excel.Application Dim xlwbk As Excel.Workbook Dim xlWsh As Excel.Worksheet   Set XLapp = CreateObject("Excel.Application") Set xlwbk = XLapp.Workbooks.Open(RS.Fields("NM_FILE_PATH").Value) Set xlWsh = xlwbk.Worksheets(1) xlwbk.Close XLapp.Quit

---

je ne modifie dans le fichier aucune valeur, donc ici pas de Save ni SaveAs

Effectivement, si je ne fais aucun traitement dans le fichier Excel (pas de macro, pas de save,...), ça kill bien le processus.

Me v'la bien avancé !