lien entre access et Excel (macro)

Bonjour,

Je me suis lancé dans un truc qui me paraît bien compliqué et qui va peut-être vous faire sourire.....
A partir d'un formulaire Access j'exporte des résultats de requêtes dans plusieurs feuilles, du coup je crée un nouveau classeur Excel (qui ne doit pas être créé par avance) que j'ouvre à la fin :

Code:

---

1 2 3

Dim xlApp As Object Set xlApp = GetObject(, "Excel.Application") xlApp.workbooks.Open "C:\dossier\monfichier.xls"

---

Dans un second classeur Excel (C:\dossier\macro.xls) j'ai enregistré (au préalable) une macro que je voudrais faire tourner dans monfichier.xls

Mon problème est que je ne sais pas si c'est possible ni comment je pourrais l'écrire......

Si quelqu'un avait une piste.....

D'avance merci !

Mumu64

Bonjour,
regarde l'aide en ligne sur la fonction Run

Salut,

Je te remercie mais j'avais déjà regardé sous Access l'aide en ligne pour "Run" mais ça ne m'a pas avancé du tout.......

Vais continuer à chercher mais je ne vois pas comment lui préciser d'exécuter la macro existant dans un autre classeur.....

Mumu64

dans la FAQ, on a un exemple pour word, facilement adaptable pour Excel ;)
http://access.developpez.com/faq/?pa...MacrWordAccess

salut jpcheck,

Merci pour l'info mais j'avais trouvé cette ligne dans la FAQ mais je n'arrive pas à l'adapter pour la faire tourner. ça plante à chaque fois......

Peux-tu nous donner le code que tu utilises actuellement stp ?

Voici le code écrit dans mon formulaire. Le module correspondant à la macro est enregistré dans le fichier mamacro.xls et non dans perso.xls

Code:

---

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

Private Sub Commande25_Click()   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "requete1", "C:\dossier\monfichier.xls", True   'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "requete2", "C:\dossier\monfichier.xls", True   Dim xlApp, xlApp1 As Object Set xlApp = GetObject(, "Excel.Application") Set xlApp1 = GetObject(, "Excel.Application") xlApp.workbooks.Open "C:\dossier\monfichier.xls" xlApp.workbooks.Open "C:\dossier\mamacro.xls"   Excel.Application.Run MacroName:="module"   End Sub

---

ok,
si je ne me trompe pas, remplace le Excel.Application par

Code:

---

xlApp.Run MacroName:="module"

---

cela ne marche pas non plus.
Sinon, t'embêtes pas je viens de penser à une autre organisation.....
Et je pense que ça va être plus simple pour moi qui ne maîtrise pas encore tout le langage.....

Je te remercie pour ton aide !!!!

@ +

Mumu

et sinon, si tu mets un chti bouton sur une feuille invisible, qui déclenche le code si on clique dessus, tu peux utiliser le code de silkyroad :
http://excel.developpez.com/faq/inde...encheOleObject

Oui, c'est une idée ! Je vais me pencher la dessus voir ce que ça donne !

Merci !!!

Mumu64

salut moi j'utilise access pour importer des données excel de plusieurs fichiers contenus dans un repertoire.
L'import de données ce fait via une macro contenue dans un classeur excel. voici la syntaxe.

Code:

---

1 2 3

Excel.Workbooks.Open ("chemin vers ton fichier excel contenant ta macro") Excel.Application.Run ("nom de ton fichier excel'!nom de la macro")

---

voici un exemple

Code:

---

1 2 3

Excel.Workbooks.Open ("E:\agneaux\2008\Facture vierge AGNEAUXP") Excel.Application.Run ("'Facture vierge AGNEAUXP'!extractagneaux")

---

j'espere que ca t'aideras
Amicalement scons

Salut scons,

Je te remercie pour cette astuce !
Je ne vais pas pouvoir la tester tout de suite mais à première vue c'est exactement ce que je cherchais.... à voir dans une prochaine étape !

Merci !!

Hello

En tout cas ça marche parfaitement pour moi, y'as pas de raison.
Tiens moi au courant.

Amicalement Scons

Je te remercie scons!

ça marche bien !! Vais adapter un peu plus ma macro mais ça m'enlève une épine du pied.

@ +

Mumu64

Ok, c'est cool, je suis ravi d'avoir pu t'aider.
Bon courage pour la suite de ta macro et n'oublie pas de marquer ton post a "resolu".

Amicalement Scons