Discussion :

[zak_mckraken]

* Bonjour *

Le nom dit tout. Y a-t-il une façon pour récupérer le nom de la procédure en cours en VBA? Le but est de pouvoir appeler la procédure de gestion d'erreurs et passer le nom de la procédure en cours en paramètre, plutôt que de la taper à la main dans chaque procédure. Ex:

Code :

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

1
2
3
4
On error goto erreur
erreur:
    Call GestionErreur(Err.Number, Err.Description, NomProcedureActive, Me.Name)
    Resume sortie

J'ai trouvé ce bout de code qui fonctionne bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ControleProcedureActive()
'adapté dune procedure de JS
Dim Lig As Long
Dim NomProcedureActive As String
With Application.VBE.ActiveCodePane 'recherche procedure en cours
.GetSelection Lig, 0, 0, 0
NomProcedureActive = .CodeModule.ProcOfLine(Lig, 0)
End With
MsgBox NomProcedureActive
End Sub

Le problème est que ce code ne fonctionne pas une fois l'application convertie en MDE.

Quelqu'un à une idée?

[helas]

Bonjour,
Il faut donc ecrire le nom de la fonction comme paramètre
Une petite routine pourrait remplacer le nom ainsi

Code :

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

1
2
 
Call GestionErreur(Err.Number, Err.Description, "XXXX", Me.Name)

deviendrait

Code :

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

1
2
 
Call GestionErreur(Err.Number, Err.Description, "NomProcedureActive", Me.Name)

Il faut donc lire les modules, récupérer le nom de la procedure puis remplacer XXXX par le nom de la procedure
Mais est-ce que cela vaut la peine ?

[zak_mckraken]

Bon, après quelques recherches infructueuses je crois comprendre que, bien que ce la ne soit pas impossible, je perdrais plus de temps à trouver une solution "automatisée" que d'inscrire le nom des procédures à la main! J'espérais sauver du temps et avoir une seule ligne "passe-partout" pour les applications à venir. Au moins, de cette manière, ça m'oblige à me reviser un peu!