Discussion :

[joe.levrai]

Bonjour,

lors de l'appel d'une fonction ou procédure via une cellule, une forme, un bouton etc... nous avons la possibilité de remonter sur l'objet appelant via l'instruction Application.Caller

Je cherche à faire la même chose, mais pour obtenir le nom d'une Sub qui en a appelé une autre

un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MacroPrincipale()
    Call MacroSecondaire
End Sub
 
Sub MacroPrincipaleBIS()
    Call MacroSecondaire
End Sub
 
Sub MacroSecondaire()
' afficher le nom de la procédure appelante
' - soit MacroPrincipale
' - soit MacroPrincipaleBIS
End Sub

Par quel moyen puis-je faire, pour l'exemple, un Msgbox dans MacroSecondaire qui afficherait "MacroPrincipale" OU "MacroPrincipaleBIS" suivant la sub qui a effectivement effectué l'appel ?


Ceci, bien entendu, sans transmettre en paramètre un String contenant le nom de la procédure
grosso modo, je ne cherche pas ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MacroPrincipale()
    Call MacroSecondaire("MacroPrincipale")
End Sub
 
Sub MacroPrincipaleBIS()
    Call MacroSecondaire("MacroPrincipaleBIS")
End Sub
 
Sub MacroSecondaire(Appelante As String)
    MsgBox Appelante
End Sub

Ps : je n'ai pas creusé énormément sur la manipulation du VBE, en inspectant les modules actifs, etc... car le projet sera verrouillé tout comme l'accès approuvé au modèle objet du projet VBA.

[jeanmidudu]

Pour ma part j'ai creusé un peu l'idée et ...

Et c'est plutôt embêtant car il n'y a, à priori, aucun moyen d'accéder à la pile de procédures programmatiquement. On peut y accéder via l'éditeur VBE (Affichage --> Pile des appels en FR)

[Jean-Philippe André]

Salut,

ca risque de faire un peu usine a gaz, mais en passant par une logique d'empilement/depilement des appels, on arriverait a quelque chose.

Je ne trouve que cette solution anglophone, mais j'utilise la meme chose avec Access et la gestion d'appels successifs de formulaires

http://etutorials.org/Microsoft+Prod...ocedure+Stack/

Je tacherai de faire un tutoriel a ce sujet ulterieurement tiens

[jeanmidudu]

Une usine à gaz peut-être, mais après de longues recherches (j'en avais besoin pendant un moment mais j'ai finalement contourné le problème), c'est la première solution qui semble fonctionnelle que je vois (et probablement l'une des très rares seules).

[joe.levrai]

Bonjour,

merci pour les pistes

jpcheck, très intéressant, j'avais trouvé d'autres pistes sur des forums VB.NET pour stacker au fur et à mesure.

Hélas, c'est une bombe atomique pour désherber mon petit jardin, mais je vais quand même analyser ça pour ma culture (et si jamais un jour le besoin s'en fait sentir).


en fait, le cadre est trop simple pour déployer une telle architecture, puisque c'était uniquement pour dissocier 2 appels différents sur la même procédure. Et je voulais éviter de multiplier les espaces à maintenir en cas d'évolution du code.

En attendant d'autres possibles pistes, je vais rester sur la transmission en paramètre du nom de la procédure, ou utiliser une variable globale toute bête.

Mais je m'étais visiblement pas trompé en me disant que finalement, il n'y a pas d'instruction ou méthode pré existante

[Menhir]

Une solution "bricolée" pourrait être de créer une variable String de visibilité Public hors sub, de dimension 2.
En tout début de chaque modules, tu mets ces deux lignes :

Code :

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

1
2
MyCaller(2) = MyCaller(1)
MyCaller(1) = "Nom du Sub"

Ainsi, tu pourras toujours consulter MyCaller(2) pour connaitre le nom de l'application appelante.

[joe.levrai]

Bonjour Menhir,

merci pour la participation.

L'idée est effectivement différente que de passer un paramètre à la procédure appelée. Cependant l'essence reste la même, c'est à dire qu'il y a de la maintenant à faire.

Et là, la maintenance est alourdie par rapport au paramètre

[mode taquin]ton tableau il est de dimension 1 et contient 2 éléments si tu est en base 1 [/mode taquin]

pour vous tous

Je marque en "résolu" pour une meilleur lisibilité du forum, mais si quelqu'un a d'autres propositions, qu'il n'hésite surtout pas


Ps : celui qui a voté -1 pour Menhir ??? Je comprend pas bien la démarche, il est clairement dans le sujet et jette un regard neuf sur les propositions déjà faites ....

[ypelissier]

Bonjour,
J'avais fait un truc à une époque en VBA que j'avais également aisément transféré en VB6. Ca demandait une certaine rigueur au départ mais ça couvrait très bien ce genre de situation et même plus...
Mais je n'arrive plus à mettre la main sur ce code (en fait si, je l'ai dans ma messagerie mais je n'arrive pas à le télécharger car il faisait parti d'un plus gros projet et j'ai 17Mo de code... J'ai l'impression que ma boîte courriel a du mal à le gérer).
Bref, de mémoire, c'était quelque chose comme ça :
1 - Dans une classe de gestion d'erreur instancié en global, déclaration d'une variable interne d'un tableau dynamique à une dimension :

Code :

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

Dim gstr_StackTrace() As String ' Pile d'appel

2 - La classe de gestion d'erreurs avec 2 fonctions :

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
28
29
30
31
32
33
34
Sub Initialize(pstr_Run As String, ParamArray pvar_ParameterList() As Variant)
On Error Goto ErrorManager
 
Dim lint_Size As Int
 
lint_Size = UBound(gstr_StackTrace) + 1 // Taille du nouveau tableau
ReDim Preserve gstr_StackTrace(lint_Size) // Redimensionner le tableau
 
gstr_StackTrace(lint_Size) = pstr_Run // Enregistrer la procédure (Sub) ou fonction (Function) appelante
 
... [code de log dont l'enregistrement de tous les paramètres] ...
 
Exit Sub
 
ErrorManager:
MsgBox "Erreur dans le module de gestion d'erreur (Initialize pour "& pstr_Run  & ")." 
End Sub
 
Sub Finalize(perr_Error As ErrorObject, pobj_Result As Object)
On Error Goto ErrorManager
 
If perr_Error.Number = 0 then
... [code de log dont l'enregistrement du résultat si c'était une fonction]
Else
... [code de log gérant l'erreur]
End If
 
ReDim Preserve gstr_StackTrace(UBound(gstr_StackTrace) - 1) // Réduire la taille du tableau
 
Exit Sub
 
ErrorManager:
MsgBox "Erreur dans le module de gestion d'erreur (Finalize)."
End Sub

3 - Organisation du code des autres fonctions ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub / Function toto(xxx As yyy) [As zzz]
Const cstr_Run As String = "toto"
 
On Error Goto ErrorManager
 
ErrorManager.Initialize cstr_Run, xxx // Ajouter les paramètres ici
 
... [code...] ...
 
ErrorManager:
ErrorManager.Finalize // , lvar_Result // A ajouter si c'est une fonction
End Sub / Function

La seule contrainte que cela impose, c'est de ne pas sortir de la procédure ou de la fonction par un Exit Sub/Function, tout devait passer par le gestionnaire d'erreur avant de sortir.

Si j'arrive à récupérer ce code, je le mettrais ici à disposition, la seule chose que je demanderais à ce moment là, c'est qu'en cas d'évolution de ce code pour corriger un bug ou pour développer une autre fonctionnalité à laquelle je n'ai pas pensé, n'hésitez pas à me le retourner.

Je vais chercher cela pour le mettre ici...

P.S. : Dois-je vraiment investir du temps pour cela, je n'avais pas fait attention aux dates de poste !!!