Retour du nom d'une procédure

Bonjour à tous,

Je suis à la recherche d'une solution qui me permettera de retourner le nom de la procédure ou fonction dans laquel je me trouve.

Ex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Ma_Sub() On Error GoTo GestionErreur i = 1 / 0 Exit Sub GestionErreur: ' Affichage du nom de ma procédure MsgBox (Nom Ma procédure) Resume Next End Sub

---

Merci d'avance....

bonsoir

effectivement, cher ami Ouskel"n'or je n'ai pas souvenir d'avoir présenté une telle macro ...;o)



je ne suis pas sur d'avoir bien compris le probleme , mais tu peux essayer :

Code:

---

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

Sub Ma_Sub() Dim i As Integer   On Error GoTo GestionErreur   i = 1 / 0   Exit Sub GestionErreur: 'Affichage du nom de ma procédure ControleProcedureActive End Sub     Sub ControleProcedureActive() Dim NomProcedure As String Dim x As Long   With Application.VBE.ActiveCodePane .GetSelection x, 0, 0, 0 NomProcedure = .CodeModule.ProcOfLine(x, 0) End With   MsgBox NomProcedure End Sub

---

bon week end
michel

Pour une gestion d'erreur locale, tu n'as qua mettre le nom de ta procédure dans le message

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click()   On Error GoTo Command1_Click_Error   Exit Sub   Command1_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Feuille Form1" Err.Clear End Sub

---

un outil comme MZTools te permets de le faire automatiquement

J'aimerais savoir ce qui ici laisse penser que l'on n'est pas sous VB6 tout seul (auicun tag ni aucun indice...) et, si non, comment faire fonctionner celà sous VB seul.
Merci.