Discussion :

[jj4822]

Bonjour.

J'ai actuellement un programme sous Access avec, dans un formulaire, des boutons pour faire telle ou telle action.

Le probleme c'est qu'il peut y avoir plus de 10 boutons a disposition. Chaque bouton a son etiquette permettant de savoir ce qu'il permet d'obtenir. Lorsqu'on veut lancer quelque chose de particulier, il faut faire le tour de tous les boutons disponibles. Chaque bouton lance une procedure differente (sub).

Pour simplifier, je souhaite faire les choses suivantes :

- une zone de choix contiendrait les libelles des differents boutons actuels
- a un libelle correspondrait un nom court. Une table contient le lien entre le nom court et le libelle a afficher dans la zone de choix et est la source de cette zone.
- Lorsque l'utilisateur a clique sur l'une des lignes, je souhaite lancer une procedure qui correspond au nom court recupere
- Je rajoute donc le nom court dans une variable declaree precedemment avec dim. Exemple variable "nom_court".
Je ne souhaite pas utiliser des If directement dans VBA.

Pour lancer une procedure a partir d'une autre procedure, il suffit de donner le nom de la procedure qu'on veut lancer. Sauf erreur de ma part, on peut lancer aussi en rajoutant, devant le nom de la procedure a lancer, les mots "Call" ou "Run".

Le probleme, c'est que VBA ne semble pas accepter de lancer une procedure avec une variable. Il lui faut directement le nom de la procedure a lancer.

Exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim Tb as recordset
dim Nom_court as string
 
sub lancement
set tb=currentdb.opendynaset("Table_noms_cours")
nom_court= tb!nom_court
tb.close
 
run nom_court

VBA bloque sur la ligne "run nom_court".

Message affiche : "Expected procedure, not variable".

Est-il possible de lancer une procedure a partir d'une variable dans VBA ? Si oui, comment ?

Merci.

[madefemere]

Bonsoir,

Moi ce que je fais,

Je crées une table T_Procedure avec comme champs NumProcedure et le nom_court de la procédure comme vous dites.

NumProcedure Nom_Court
1 NomCourt_Procedure1
2 NomCourt_Procedure2
3 NomCourt_Procedure3

Dans le formulaire, créer une zone de liste déroulante indépendante à partir de cette table avec ces 2 champs, la première colonne cachée.
Colonne liée : 1

Sur l'évènement AprèsMiseAJour de la liste déroulante,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ZoneDeListe_AfterUpDate()
SELECT CASE ZonedeDeListe
     Case 1
          Call Procedure1 'Mettre le nom du module
     Case 2
          Call Procedure2
     Case 3
             ......
     Case ELSE
 
End SELECT
End Sub

Cordialement,

[loufab]

Bonjour,

Pour exécuter une procédure (et qu'une procédure, ça ne fonctionne pas avec une fonction) voici le code :

Code :

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

1
2
3
4
5
6
7
 
Sub testtest()
Dim toto As String
toto = "nomcomplement"
Application.Run toto
 
End Sub

Si vous avez un message d'erreur vérifier que le contenu de la variable soit un nom valide.

Le Call ne permet pas de lancer des noms de procédures contenues dans une variable.

Cordialement,

[jj4822]

Bonsoir.

Merci pour ces reponses.

Ce qui est incroyable c'est que, dans Excel, ce type de chose fonctionne sans probleme. Exemple avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Nomproc As String
 
Sub lancement()
    Range("a1").Select
    Nomproc = ActiveCell
    Application.Run "" & Nomproc & ""
End Sub
 
Sub test()
    MsgBox "coucou"
End Sub

La cellule A1 de la feuille active contient la valeur "test".
Lorsque je lance la procedure "lancement", le message "coucou" s'affiche.

Par contre, le code ci-dessous ne fonctionne pas dans Access au niveau de la ligne Application.Run "Test" alors que test n'est pas une variable mais le nom de la procedure a lancer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim tb As Recordset
Dim Nomprocedure As String
 
Private Sub Commande0_Click()
    Set tb = CurrentDb.OpenRecordset("procedures_a_lancer", dbOpenDynaset)
    Nomprocedure = tb!Nom_procedure
    Application.Run "Test"
End Sub
 
Public Sub Test()
    MsgBox "coucou"
End Sub

Seul fonctionne la chose suivante

Code :

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

1
2
 
Application.Run Test

Du coup, je ne peux pas jouer avec les doubles guillemets du type

Code :

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

1
2
3
 
 
Application.Run "" & Nomprocedure & ""

comme j'ai reussi a le faire dans Excel.

Par contre, j'ai essaye a l'instant, dans Access, la chose suivante :

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
 
 
Dim tb As Recordset
Dim Nomprocedure As String
 
Private Sub Commande0_Click()
    Set tb = CurrentDb.OpenRecordset("procedures_a_lancer", dbOpenDynaset)
    'Nomprocedure = tb!Nom_procedure
    Nomprocedure = "Test"
    Application.Run Nomprocedure
End Sub
 
Public Sub Test()
    MsgBox "coucou"
End Sub

Que ce soit avec

Code :

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

1
2
 
Nomprocedure = tb!Nom_procedure

ou avec

Code :

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

1
2
 
Nomprocedure = "Test"

Le programme m'affiche le message suivant : Microsoft Access ne peut pas trouver la procedure "Test".

J'ai enfin remplace la valeur contenue dans la variable Nomprocedure par coucou (au lieu de test) au cas ou le mot test soit considere comme un mot reserve. C'est le meme resultat.

Cdlt

[marsouin_89]

Bonsoir,

Je viens de tester le code suivant et cela focntionne très bien.
J'ai créé une table nommée "Table1" qui contient un nom de champ quelconque.
Dans ce champ, j'ai ajouté les valeurs "Test10" et "Test11" (sans les guillemets).

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
Private Sub TestOrigine()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim NomProcess As String
    Set db = CurrentDb
    Set rst = db.OpenRecordset("Table1", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
        NomProcess = rst.Fields(0)
        Application.Run NomProcess
        'Va sur l'enregistrement suivant
        rst.MoveNext
    Loop
 
'Ferme le recorset
Set rst = Nothing
End Sub
 
Public Sub Test10()
    MsgBox "coucou 10"
End Sub
 
Public Sub Test11()
    MsgBox "coucou 11"
End Sub

[jj4822]

Bonjour.

Merci pour toutes vos reponses.

Ca fonctionne.

Mais ca ne semble fonctionner que si la procedure se trouve dans un module et non dans le formulaire directement.

Merci a tous pour votre aide.

Cdlt

[loufab]

Il n'y a rien d'incroyable la dedans.
Le module d'un formulaire ou d'un état est un module de Classe. Il bénéficie donc des mêmes règles qu'une classe.

instanciation, accès au procédure/fonction publique...