Discussion :

[Amara]

Bonjour à tous,

Je débute en programmation VBA et je suis confronté à un problème que je ne parviens pas à résoudre malgré moult recherches.
J'ai défini une macro dans un fichier Excel qui doit appeler un morceau de code contenu dans unn module d'un fichier Access. Dans la macro Excel, j'arrive à récupérer la liste des modules de mon fichier Access, mais je ne sais pas comment exécuter le code VBA de ces modules.

Code :

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

db.Run "ModuleMiseAJour"

J'ai essayé Run mais ça me répond "Microsof Access ne peut pas trouver la procédure ModuleMiseAJour" au lancement de la macro Excel. Comment faire ?
Est-il possible d'écrire soi-même le code VBA des macros Access comme on peut le faire pour les macros Excel (pour l'instant j'ai peut-être raté quelque chose mais quand je créé une macro dans Access et que je lui demande de la traduire en VBA il met la version "codée" dans Module) ?

Config : Windows 2000 / Excel 2000 / Access 2000.

Merci.

[ouskel'n'or]

Mets-nous un peu plus de code, comme par exemple tes déclarations de l'appli Access dans Excel de la base et son ouverture.

A+

[Invité]

Salut,

Avec Run tu ne peux lancer un module, mais une procedure qui se trouve dans le module, et en faisant préceder le nom du module par le nom du projet, tu as donc access, va voir l'aide en tapant "Run"

Starec

[Amara]

Merci pour vos réponses.

Voici le code de ma macro Excel :

Code :

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

1
2
3
4
Dim db As Access.Application
    Set db = New Access.Application
    db.OpenCurrentDatabase "C:\Mes Documents\bd1.mdb"
    DoCmd.RunMacro "Macro1"

En fait j'ai contourné le problème en créant une macro Access (Macro1) qui appelle la fameuse procédure du Module qui m'intéresse. Et ça marche.

Mais la solution est pas super, en fait il faudrait remplacer

Code :

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

DoCmd.RunMacro "Macro1"

par un appel direct à la procédure, cela me permettrait de passer des arguments à cette procédure à partir de la macro Excel.

La procédure s'appelle "MiseAJour" et le module qui la contient "ModuleMiseAJour" (pas très original mais bon...).

Merci.

[ouskel'n'or]

As-tu essayé

Code :

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

1
2
3
4
5
6
Dim db As Access.Application 
    Set db = New Access.Application 
    db.OpenCurrentDatabase "C:\Mes Documents\bd1.mdb" 
    With db
          .DoCmd.RunMacro "Macro1"
    End with

Juste pour l'idée, je ne connais pas l'utilisation de DoCmd

A+

[Amara]

As-tu essayé

Code :

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

1
2
3
4
5
6
Dim db As Access.Application 
    Set db = New Access.Application 
    db.OpenCurrentDatabase "C:\Mes Documents\bd1.mdb" 
    With db
          .DoCmd.RunMacro "Macro1"
    End with

Juste pour l'idée, je ne connais pas l'utilisation de DoCmd

A+

C'est étrange je viens de tester ton idée et db.DoCmd.RunMacro "Macro1" fait exactement la même chose que DoCmd.RunMacro "Macro1".

Mais pour le lancement de la macro c'est bon ça marche, c'est le lancement d'une procédure d'un module qui ne marche pas.

[Amara]

Je suis pas spécialiste Access donc je connais pas toutes les subtilités.
Quand on est dans Access, dans les objets il y a une catégorie "Macros" et une catégorie "Modules". J'ai compris (peut-être que je me trompe) que les Macros correspondent à une suite d'actions que Access réalise alors que les Modules contiennent un ensemble de procédures (ce qui se rapproche plus à de la programmation classique). Et mon code VBA du fichier Access se trouve dans un Module car je n'ai pas trouvé le moyen d'éditer le code des Macros, comme on peut le faire dans Excel.
A partir du script VBA de mon fichier Excel j'arrive à lancer les Macros, mais je n'ai rien trouvé pour lancer les procédures des Modules.
Donc en fait ce qu'il faudrait c'est soit être capable d'éditer le code VBA des Macros de Access, soit parvenir à lancer une procédure d'un module Access à partir du script VBA du fichier Excel.

Merci.

[ouskel'n'or]

Ok, je comprends ton dilemme. Les modules contiennent les macros. Déclarées en "Private Sub ..." elle ne sont accessibles que depuis le même module (sauf à nommer le nom du module - ce que je n'ai jamais fait mais dont je me doute)
Les autres "sub" ou macros dont le nom n'est pas précédé de Private sont utilisables depuis tout le projet.
Si tu utilises un Userform (faisant partie du projet), dans le code de l'userform, tu as également des "private sub" correspondant à chaque contrôle. Elles ne sont accessibles que depuis l'userform.
Mais depuis l'userform, tu peux appeler une sub, non précédées de Private, se trouvant dans un module extérieur (Module1, Module2... etc)
(Pour simplifier, tu peux renommer les modules auquel cas mon exemple précédent ne veut plus rien dire )
T'en fais pas, ça va venir plus vite que tu ne crois...

Bon courage

NB - Je sais que j'ai écourté mais commence par là

[Amara]

Je te remercie de t'être penché sur mon problème de façon aussi attentive.

Je suis pas sûr d'avoir tout bien compris de ton dernier message mais tu m'as mis indirectement sur la voie. En fait dans mon Module, mon bout de code était déclaré comme suit :

Code :

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

Public Function MiseAJour()

J'ai juste remplacé par :

Code :

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

Sub MiseAJour()

et maintenant ça marche, en utilisant la méthode Run dans ma macro Excel la procédure se lance bien.

Code :

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

db.Run "MiseAJour"

Merci beaucoup