Discussion :

[sinifroth]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Jean-Philippe André]

Bonjour,

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

la regorge de codes tout faits

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

[sinifroth]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sinifroth]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Jean-Philippe André]

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

[sinifroth]

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.