[VB6] Appeler une procedure par son nom.

Bonjour a tous,

J'ai une base de donnée Access ou, pour chaque type de rapport existant, j'ai mis le nom d'une procedure existante, qui formatte le rapport choisis par l'utilisateur.

A partir d'une application visual basic, je voudrais faire la chose suivante:

Code:

---

1 2 3 4 5

dim rs as new adodb.recordset 'code qui appelle un query pour recuperer dans le champs 1 le nom de la procedure a appeler.   call rs.fields(1).value

---

Ce que j'espere ici, c'est que mon programme va appeler la SUB dont le nom est contenu dans rs.fields(1).value

Ca ne marche pas, je voudrais savoir si ce que j'essaie de faire est possible.
Les procedures a appeler sont toutes dans un module, dans le meme projet VB.

Je sais qu'il est possible de faire un gigantesque 'Select Case' pour decider quelle procedure appeler, mais j'aimerais pouvoir eviter cela si possible.

Merci d'avance a quiconque trouverait la solution a mon probleme. Si je n'ai pas été assez clair ou ait manqué a une regle du forum, merci de m'avertir, je me corrigerai immédiatement.

Salut j'ai eu le meme sushi il y a quelques jours va voir ici

http://www.developpez.net/forums/sho...d.php?t=150160

Bonjour,
A ma connaissance, ce n'est pas possible en Vb6.
[Edit]Si c'est possible!!! Voir plus bas
C'est la différence entre un langage orienté objet et un langage objet.
[Edit]Il faut donc utiliser les objets !!

Citation:

---

Envoyé par Aide Microsoft

Passage de pointeurs de fonction à des procédures DLL et à des bibliothèques de types

Les pointeurs de fonctions « de Basic vers Basic » ne sont pas gérés. Les pointeurs vers des fonctions Visual Basic ne peuvent pas être passés dans Visual Basic lui-même. Pour le moment, seuls sont gérés les pointeurs pointant faisant référence à une fonction DLL depuis Visual Basic.

---

Code:

---

CallByName

---

???

et.... Call Byname ?....:lol:

Edit : salut Alain !;)

:oops: autant pour moi
:hola::applo: à jmfmarques et AlainTech
On en apprend tous les jours

http://support.microsoft.com/kb/186143/fr

Sub AppliRun()
LaMacro = cells(2,2).formula
Application.Run (LaMacro)
End Sub

Bonjour encore une fois.

Callbyname répond effectivement a mes attentes, avec quand meme une petite limitation: le code des fonctions doit etre présent dans le formulaire appelant.

Sans cela, il semble en effet que ce n'est pas possible.

Merci pour votre aide :)

Citation:

---

Envoyé par kenn

le code des fonctions doit etre présent dans le formulaire appelant.

---

8O Il ne me semble pas.
Ex avec une feuille qui contient un bouton et un textbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

'Module de classe clsMesProc Option Explicit   Public Sub Proc1() MsgBox "coucou1" End Sub   Public Sub Proc2() MsgBox "coucou2" End Sub   Public Sub Proc3() MsgBox "coucou4" End Sub   Public Sub Proc4() MsgBox "coucou4" End Sub 'Fin Module clsMesProc   'code de la feuille Option Explicit   Private Sub Command1_Click() Dim objMesProc As New clsMesProc Call CallByName(objMesProc, Text1.Text, VbMethod) End Sub

---

J'execute les procédures que je saisie dans le textbox (ex: "Proc3" => affiche "Coucou3".
Par contre, je te conseille de prévoir une méthode dans la classe qui teste l'existence de la procédure appelée avant l'appel ou de gérer les erreurs au moments de l'appel de callbyname si la procédure appelée n'existe pas.