Discussion :

[JFDAccess]

Bonjour,

Je cherche a exécuter automatiquement une macro Excel à partir d'un module VBA

Dans un premier temps je cherche à ouvrir la feuille (fich XL est défini, ainsi que les Dim wsExcel et wbExcel)

Code :

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

1
2
3
4
 
Set wbExcel = appExcel.Workbooks.Open(FichXL)    
Set wsExcel = wbExcel.Worksheets(1)
wsExcel.Visible = xlSheetVisible

Comment lancer sans sortir de Access une macro incluse dans le classeur ?

De plus la feuille ne s'affiche pas ! - est-ce normal ? - bien que cela ne me gênerait pas si on pouvait lancer la macro depuis Access, que faudrait-il pour la visualiser s'il n'y a pas de solution pour lancer la macro depuis Access?

Merci

[tee_grandbois]

Bonjour,

Code :

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

1
2
appExcel.Visible = True      ' rend visible l'application
wbExcel.Application.Run ("Macro1")  ' lance une macro du classeur

[JFDAccess]

Merci

Le lancement de Macro marche bien, par contre, j'avais mis "xlSheetVisible" qui vaut -1 comme "true", et je ne visualise pas la feuille, mais ce n'est pas grave dans la mesure où la macro s’exécute bien quand même.

Par contre - si je peux me permettre - j'avais essayé de ranger toutes les macro dans un classeur unique que j'ouvre avant, et donc les je suppose qu'il faut pouvoir indiquer à Excel de chercher dans tous les classeurs ouverts et pas seulement dans "ce classeur" Je ne sais pas si c'est faisable.

JFD "totalement retraité!"

[JFDAccess]

Autant pour moi,

Effectivement, la visualisation se fait bien avec appExcel et pas wsExcel!

Je vais reprendre des cours de lecture, ...

[tee_grandbois]

j'avais essayé de ranger toutes les macro dans un classeur unique que j'ouvre avant, et donc les je suppose qu'il faut pouvoir indiquer à Excel de chercher dans tous les classeurs ouverts et pas seulement dans "ce classeur" Je ne sais pas si c'est faisable.

Oui c'est faisable du moment que les classeurs ouverts sont bien déclarés.