Appel Function ou SUB contenue dans une variable

Bonjour à tous,
Question simple, je connais le nom d'une SUB contenue dans un modèle au travers d'un champ nommé Excel, comment faire en VBA pour l'appeler ?

Voilà, l'exposé de ma question de façon plus exhaustive :

Exemple : champ nommé en A1 NomProcédure, et en A1 j'écris "Ma_Sub"

Dans un module de ce modèle j'écris :

Code:

---

1 2 3 4

Option Explicit Private Sub Ma_Sub() MsgBox "Procédure exécutée en fin de mise en forme du modèle" End Sub

---

Dans le déroulé d'une macro, je veux faire appel à cette SUB, comme suit par exemple :

Code:

---

1 2 3 4 5

Dim MaProc as variant MaProc = range("NomProcédure).Value Call MaProc ' ce Call ne fonctionne qu'avec un nom explicite, d'où erreur VBA 438 End Sub

---

Par avance merci
Bertrand

Bonjour,
Tel que vous l'exposé, ce n'est pas possible sauf en utilisant la bibliothèque Microsoft Visual Basic for Applications Extensibility 5.3. en tous les cas dans les limites de mes connaissances actuelles.
Personnellement, je déconseille l'usage de cette dernière qui permet entre-autres de créer des procédures dynamiquement ou d'en supprimer et demande également de changer des options dans l'éditeur VBE. Une application bien écrite ne devrait pas avoir recours à ce genre de pratique.

En revanche, si vous voulez appeler une procédure ou plusieurs procédures en fonction de mots placés dans une ou plusieurs cellules nommées c'est possible. J'ai déjà pratiqué de cette façon pour créer en quelques sortes des macros-commandes.
Dans une table de procédures, je place dans une colonne nommée "Process", un mot clé comme "Sort" ou "Filter" ou encore "Export" et dans une colonne nommée "Parameter", les différents arguments à passer à la procédure qui effectuera soit un tri, un filtre ou un export.
La lecture de cette table est chargée dans une procédure qui effectuera le dispatching (Select Case) vers les procédures concernées en passant les arguments.

Je vous remercie beaucoup de votre réponse.
L'option 1 vous déconseillez, j'en prends bonne note.
L'option 2 est limitée à des actions connues à l'avance, cela reviendrait en quelque sorte à automatiser des actions de style Macrocommandes, tel qu'on le connaissait en Excel 4, avant le VBA, cela ne nous rajeunit pas !!!
Finalement, je vais opter pour une solution 3, où je vais imposer à la création du modèle un nom de SUB, par exemple Sub Finaliser_Mise_en_forme.

Encore une fois grand merci.
Bertrand

Bonjour,

Citation:

---

L'option 2 est limitée à des actions connues à l'avance,

---

Pas nécessairement, rien ne vous empêche et c'est ce que je fais dans mes procédures automatisées, de prévoir des procédures particulières pour une application dédiée ce qui nous rapproche de l'option 3
Cette approche, facilite la maintenance de l'application

Si vous voulez en savoir plus sur les manipulations de l'éditeur VBA (Option 1), je vous conseille la lecture de ce tutoriel Visual Basic Editor

Au final mon problème se résout bien avec l'instruction :

Code:

---

1 2 3

' Call MaProc '<== ne fonctionne pas Run Monfichier & "!" & Module1.MaProc ' <=== Fonctionne

---

Grand Merci Philippe

Bertrand

Bonjour Bertrand,
Merci pour ton retour.
Effectivement, je n'ai pas pensé à cette solution que l'on peut utiliser notamment en appelant une procédure présente dans les macros complémentaires ou dans un autre classeur xlsm
Cette discussion m'aura permis de faire remonter dans ma mémoire une information bien enfouie :plusser:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test_t() Dim p As String p = "t" Run p End Sub   Sub t() MsgBox "Oui" End Sub

---

Pour appeler une méthode depuis un autre module, la méthode (sub ou function) ne doit pas être Private (Private indique qu'elle est accessible uniquement au niveau du module où elle est déclarée)

ensuite le run c'est Application.Run