Lancer une macro excel via VBA?

Version imprimable

Bonjour,

J'ai dans acces un bouton qui lance une query qui crée une table et puis qui exporte cette table dans excel (C:\Trop long.xls)
Code:

1 2 3 stDocName = "Créer trop long" DoCmd.OpenQuery stDocName, acNormal, acEdit DoCmd.RunSavedImportExport ("Export Trop long")
J'aimerai que ce bouton effectue une opération supplémentaire, appliquer au fichier une macro excel de mise en page

Cette macro est stockée dans C:\Program Files\Microsoft Office\Office12\XLSTART\PERSONAL.XLSB (je ne peux pas la stocker dans C:\Trop long.xls vu que le fichier est effacé des que j'en exporte une nouvelle version) et s'appelle "PERSONAL.XLSB!trop_long"

Apres avoir pioché dans la faq j'ai fait ca
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim objXL As Object, x On Error Resume Next Set objXL = CreateObject("Excel.Application") With objXL.Application .Visible = True .Workbooks.Open "C:\Program Files\Microsoft Office\Office12\XLSTART\PERSONAL.XLSB" .Workbooks.Open "Z:\Trop long.xls" x = .Run("PERSONAL.XLSB!trop_long") End With objXL.Save objXL.Close Set objXL = Nothing
Ca ouvre bien mon fichier et ca fait bien tourner la macro, par contre, ca l'ouvre en read only et je ne peux donc pas l'enregistrer :?

Idealement, je voudrais que le code ouvre le fichier excel, fasse tourner la macro, sauve, et quitte le fichier.

Est-ce que quelqu'un sait comment remédier a cela?

Merci beaucoup

Emmanuelle

Je l'ai :) :yaisse2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    'lancer la macro de mise en page en excel
    Dim xlApp As Object
    Dim mySheet As Object
 
    Set xlApp = CreateObject("Excel.Application")
    'ouvrir de facon masquée les deux fichier
    Set mySheet = xlApp.Workbooks.Open("C:\Program Files\Microsoft Office\Office12\XLSTART\PERSONAL.XLSB")
    Set mySheet = xlApp.Workbooks.Open("Z:\Trop long.xls")
    'run la macro
    xlApp.Application.Run ("PERSONAL.XLSB!trop_long")
    'sauver et quitter
    mySheet.Save
    mySheet.Close
    Set xlApp = Nothing
    Set mySheet = Nothing

Par contre, j'ai pas compris pourquoi ce code ci ouvre normalement et pourquoi l'autre ouvre en lecture seule :question:
Si quelqu'un a l'explication, ca me permettra de me coucher moins bete ce soir

11/08/2010, 13h08
LedZeppII
Bonjour,

Excel.Application n'a pas de méthodes Save et Close.
Ces deux méthodes sont valables pour des classeurs (Excel.Workbook)

Je crois que pour quitter Excel, cet ordre est préférable :
Code:

1 2 3 4 5 6 'sauver et quitter mySheet.Save mySheet.Close Set mySheet = Nothing xlApp.Quit Set xlApp = Nothing
On libère les objets dans l'ordre inverse de leur création.

A+
11/08/2010, 13h57
EmmanuelleC

D'accord, merci :)
Je bidouille comme je peux, mais c'est souvent plus facile de trouver une bidouille qui marche que de comprendre comment ca marche. Grace a toi, en plus j'ai compris et ca m'aidera pour les fois suivantes
10/09/2010, 11h47
Deustalos

Pour ma part je trouve plus intéréssent et surtout plus fiable de coder la macro directement dans le module Access ;) (Par pilotage de excel via Access). Aprés c'est à vous de voir.

Alex