Appel de procedure en fonction du nom stocké dans un champ de tableRésolu

Question

Bonjours &#224; tous,

Je travail sous Access 2000, et je voudrais appeler des fonctions ou des sub &#224; partir de leur nom que j'ai pr&#233;alablement stock&#233;e dans un champs d'une table. 
J'ai cr&#233;e un formulaire simple avec une zone de liste qui contient toute ma table, la colonne 1 contient le nom des sub ou fonction,, je souhait que lorsque je clique sur une clique, le programme execute la fonction dont le nom estdonn&#233; dans la colonne 1.
la procedure call ne fonctionne pas car la variable contenant le nom de la procedure n'est pas reconnu comme une procedure mais comme du texte. je suppose que c'est normal mais je n'y arrive pas.
Si quelqu'un a une solution, je suis preneur 
En esperant avoir &#233;t&#233; assez clair et explicite, je remercie par avance tous ce qu me repondre et m'apporteront une solution.

A+

CTAC · Accepted Answer

Bonjour,

Ce doit être faisable en utilisant la méthode Run.

Un exemple ici sur XL avec la cellule D1.

http://cjoint.com/?bFvGWZbYyf

ctac

jrivet · Answer

Bonsoir,

Je vois bien une solution mais je ne sais pas si elle te plairas.

Tu peux recuperer le nom de la fonction dans une variable:

Dim NomFonction as string

Select case NomFonction
     Case "Form_Load": Call Form_Load
     Case "Form_Unload"Call Form_Unload
     .....
End select

C'est un petit peu lourd a faire.

@+
Julien

jeromepupuce · Answer

J'ai deja essaye une solution proche de celle que tu me propose mais elle mais fin a tout procedure qui suivrai ce code. Je m'explique, je souhait executer une sub ou fonction quio depend de la ligne selectionn&#233;e puis executer un code commun a tout les enregistrement, ce code suit select. En faite, l'excecution deselect case met fin a tout le code qui suit des lors qu'il a trouv&#233; une correspondance.
Je te remercie quand m&#234;me

A+

cs_CanisLupus · Answer

Salut,
A ma connaissance, il n'y a pas de collection 'subs' ou 'functions' en VB6, encore moins en VBA. En VB.NET, je ne me suis pas pos&#233; la question mais je ne pense pas que &#231;a existe.
Donc, aucun moyen autre que celui d&#233;crit par <jrivet> pour arriver &#224; tes fins.
D'autre part, si tu expliquais les raisons qui t'on amen&#233; &#224; t'orienter de la sorte, on pourrait peut-&#234;tre te proposer une autre voie.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_casy · Answer

J'ai eu moi-m&#234;me besoin d'un tel proc&#233;d&#233; r&#233;cement pour cr&#233;er un logiciel &#233;volutif &#224; la demande du client.

Je n'ai, moi non plus, pas trouv&#233; de solution &#224; part le select case. Donc mon soft n'est pas si &#233;volutif que &#231;a.

On m'avait donn&#233; une piste, il y aurait des api capables de r&#233;cup&#233;rer la fonction &#224; l'aide de callback, je n'ai jamais r&#233;ussis &#224; trouver ces api. Et pour etre honete je doute qu'elles existent vraiment. Je vois pas comment elles pouraient fonctionner.

En bref, je pense que tu n'as pas le choix --> select case

<hr size="2" width="100%">

jeromepupuce · Answer

Merci a tous pour vos solutions.
Pour "Loup", les raisons qui m'ont pousse a chercher une telle solution sont que je voudrais pour exporter des donn&#233;es extraites de table ou de requete rapidement et sans etre obliger de modifier le code en permenance, surtout avec 25000 enregistrements et 100 exportations differrentes. Ca me permettrai aux mise a jour de ma base de n'effectue qu'un rajout de module et un ajout dans la table exportation avec comme champ "Macro" le nom de la routine a executer avant d'effectuer l'exportation. Mon code est deja interactif et prend en compte l'ensemble des exportations avec des modeles differents, des chemein d'enregistrement differents et des requete differnetes pour chacun.
Si personne ne peut m'apporter de meilleurs solution que Select Case, je l'utiliserai mais mon code ne sera plus interactif.
Merci tout de m&#234;me.
A+

jeromepupuce · Answer

Merci a toi CTAC, je n'y avais pas pens&#233; mais ca fonctionne tr&#233;s bien.....