Discussion :

[kenn]

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 :

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

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.

[noob_vba]

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

[AdHoc]

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 !!

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.

[AlainTech]

Code :

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

CallByName

???

[jmfmarques]

et.... Call Byname ?....

Edit : salut Alain !

[AdHoc]

autant pour moi
à jmfmarques et AlainTech
On en apprend tous les jours

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

[noob_vba]

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

[kenn]

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

[AdHoc]

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

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

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
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.