Discussion :

[Junior_jef]

Bonjour tout le monde,

Apres avoir cherché dans la FAQ et sur le forum, je me décide enfin à poster la question que voici:

Mon application contient une 20aine de modules
Dans chaque module, il y a une procedure Stat()

A partir d'un formulaire, je voudrais pouvoir choisir une procédure, et l'exécuter.

Pour cela, j'affiche les noms des modules dans une liste modifiable:

Dim db As DAO.Database, mddoc As DAO.Document, strDesc As String
Set db = CurrentDb
For Each mddoc In db.Containers("Modules").Documents

Me.Liste1.AddItem (mddoc.Name)

Next

Jusque la tout fonctionne: j'ai donc un formulaire avec une liste qui contient les noms des modules contenu dans mon application.

Mais comment faire, pour qu'en cliquant sur un bouton, la procedure "stat()" du modules selectionné soit lancée?


J'ai essayé ceci:

Code :

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

1
2
3
4
5
Private Sub Commande2_Click()
 
Call Me.Liste1.Value & ".Stat()"
 
End Sub

Merci beaucoup pour votre aide

[Caroline1]

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
   dim oMod as Module
 
   set oMod = Application.Modules(Me.Liste1.Value)
   Call oMod.Stat
 
End Sub

C'est à tester. Stat doit être défini comme étant Public. Il serait sage aussi d'activer une gestion d'erreur au cas où Stat n'était pas défini dans le module

[Arkham46]

slt,

Mon application contient une 20aine de modules
Dans chaque module, il y a une procedure Stat()

20 fois la même procédure c'est possible ça?
c'est des modules de classe?

[Caroline1]

slt,
20 fois la même procédure c'est possible ça?
c'est des modules de classe?

Oui. J'ai quelque chose de semblable, avec une procédure "Francais" et "Anglais" dans chaque module de classe et module standard ayant une sortie à l'écran (des msgbox en gros).

Je boucle sur la collection Forms et Modules pour appeler chaque procédure. Évidemment, il faut toujours indiqué le nom "au long". Aucun appel "Francais" tout court sinon une erreur de "nom ambigu" survient ou au mieux, on appelle la procédure la plus proche.

Un peu comme DAO et ADODB au final, avec leur objet ayant le même nom.

[Arkham46]

Oui. J'ai quelque chose de semblable, avec une procédure "Francais" et "Anglais" dans chaque module de classe et module standard ayant une sortie à l'écran (des msgbox en gros).

Je boucle sur la collection Forms et Modules pour appeler chaque procédure. Évidemment, il faut toujours indiqué le nom "au long". Aucun appel "Francais" tout court sinon une erreur de "nom ambigu" survient ou au mieux, on appelle la procédure la plus proche.

Un peu comme DAO et ADODB au final, avec leur objet ayant le même nom.

ah ben oui ça marche
merci

[Caroline1]

Après test:

Code :

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

1
2
3
4
5
6
7
8
 
'Fonctionne:
basMonModuleStandard.MaFonctionPublique
 
'Génère une erreur à la compilation sur oMod.MaFonctionPublique (membre de méthode ou données introuvable)
Dim oMod As Module
Set oMod = Application.Modules("basMonModuleStandard")
oMod.MaFonctionPublique

Bizarrement aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
dim basModules as Modules
dim i as Integer
dim bas as Module
 
'Fonctionne. On entre Application.Modules.Count fois dans la boucle.
Set basModules = Application.Modules
For i = 0 To Application.Modules.Count - 1
     If basModules(i).Type = acStandardModule Then _
            'quelque chose
Next
 
'Fonctionne aussi mais, même si Application.Modules.Count est > 0, on entre jamais dans la boucle.
For Each bas In Application.Modules
     'quelque chose
Next

Si quelqu'un a une idée d'explication, je suis preneure aussi!

[Tofalu]

Et en déclarant bas en variant ?

[Caroline1]

Et en déclarant bas en variant ?

Ça en déclare plus d'erreur à la compilation. Mais la même erreur (438: Membre introuvable) ressort à l'exécution. On n'entre pas plus dans la boucle.

[Junior_jef]

je vais tester ca de suite! merci beaucoup en tout cas!

Heu oui, en effet, ca génère une erreur

[Junior_jef]

slt,



20 fois la même procédure c'est possible ça?
c'est des modules de classe?

heu non, de simples modules. Avec un noms différents pour chacun (normal). Mais chacun possède une procédure "Stat".

[Junior_jef]

J'ai fait une tentative avec la fonction Eval():

Code :

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

1
2
3
4
5
6
7
 
<div style="text-align: left;">Private Sub Commande2_Click()
   dim oMod as Module
 
   set oMod = Application.Modules(Me.Liste1.Value)
   Eval (oMod.Name & ".Stat()") 
End Sub</div>

Et cela ne fonctionne pas: erreur 2482: Impossible pr Microsoft Office de trouverle nom 'nomDeMaProcedure' entré dans l'expression


Pourtant si je fais ceci:

Code :

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

Debug.Print oMod.Name & ".Stat()"

cela me donne bien: nomDeMaFonction.stat()

[Caroline1]

Continue à chercher :-). La question m'intéresse aussi mais là, je dois passer à autre chose mais.

Perso, je fais :

Code :

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

1
2
3
4
5
 
basMonModuleStandard1.MaFonctionPublique
basMonModuleStandard2.MaFonctionPublique
basMonModuleStandard3.MaFonctionPublique
...

Je préférerais vraiment pouvoir passer par une variable et une boucle sur tous les modules. Ça m'éviterait de devoir aller modifier à la mitaine quand un nouveau module s'ajoute.

Sinon pour ton problème, tu peux peut-être passer un Select case, avec un
Case "NomModule"
NomModule.Stat

Pour chaque module. Ça devrait fonctionner il me semble.

Caroline