Discussion :

[blepy]

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 :

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

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 :

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

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

[Philippe Tulliez]

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.

[blepy]

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

[Philippe Tulliez]

Bonjour,

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

[blepy]

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

Code :

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

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

Grand Merci Philippe

Bertrand

[Philippe Tulliez]

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

Code :

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

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