Faire référence au nom d'une procédure Sub

Bonjour,

J'ai besoin, à l'intérieur d'une procédure, de faire référence au nom de cette procédure (sub ou function) ; existe-t-il un mot clé, une méthode qui permette cette fonctionnalité?

J'ai besoin de cette fonctionnalité pour mon code de gestion d'erreur...

Merci d'avance

sous vba il n'existe pas de référence procédure ou fonction avec l'objet Err

Pour ma part je déclare une variable global disons gErrSubFunction de type string.

Et à la procédure de gestion d'erreur je récupére la valeur de la variable gErrSubFunction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function Nom1() gErrSubFunction="Function Nom1()" on error goto GestionErr   GestionErr: appel de la gestion de l'erreur   End Function     Sub Nom2() gErrSubFunction="Sub Nom2()" on error goto GestionErr   GestionErr: appel de la gestion de l'erreur   End Sub

---

Voilà comment je procède :ccool:

Salut CC25 et le forum

Citation:

---

J'ai besoin de cette fonctionnalité pour mon code de gestion d'erreur...

---

C'est pour une gestion globale de toutes les erreurs de toutes tes macros ?

Code:

---

Call Gestion_des_erreurs

---

renverra à la procédure Sub Gestion_des_erreurs.
Mais si tu expliquais ce que tu veux faire réellement, on pourrait t'aider.
A+

Merci pour les réponses.

Ce que je veux faire : indiquer, de manière automatisée (sans avoir à l'écrire en dur) dans mon code de gestion d'erreur de mes procédures, le nom de la procédure concernée par l'erreur, afin de simplifier le débogage en cas d'erreur.
Actuellement, voilà à quoi ressemble mon code de gestion d'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ma_Procedure_Qui_Fonctionne() On Error GoTo Gest_Erreur   code   Exit_Gest_Erreur: Exit Sub Gest_Erreur: MsgBox "Ma_Procedure_Qui_Fonctionne : " & Err.Description & " - N°:" & Err.Number Resume Exit_Gest_Erreur End Sub

---

Je souhaiterais automatiser la partie MsgBox "Ma_Procedure_qui_Fonctionne :"
en récupérant le nom de la procèdure dans laquelle je me trouve... si c'est possible, bien sûr.

J'espère avoir été plus clair cette fois.

@+

Bonjour,

La gestion des erreurs sous vba est limité comme je l'ai dit dans mon dernier message
il n'est pas possible de récuperer la fonction ou la procédure qui a déclenche l'erreur !

Sauf si on declare une variable global à mettre dans le debut de la fonction ou de la procédure !!!!

Sinon regarde l'aide :f1: tu verras bien que c'est limité .

:ccool:

il n'est pas utile de faire une procédure ou une fonction pour trouver l'erreur alors que le débogeur existe

Citation:

---

Envoyé par garion28

il n'est pas utile de faire une procédure ou une fonction pour trouver l'erreur alors que le débogeur existe

---

Sauf si on veux faire de la gestion d'erreur un peu avancé qui corrige les erreurs prévisible. Une variable mal renseigné par l'utilisateur un calcul qui ne converge pas correctement (ca même vers l'optimisation ca, mais en VBA faut avoir le temps :mouarf:)
Ou alors ce la permet simplement d'éviter que l'utilisateur lambda vienne mettre son nez dans le code ;)
Bon après la ou tu as raison c'est que cela ne semble vraiment pas être le cas :roll:


Sinon pour avoir exactement la position de l'erreur tu peux utiliser la fonction ERL (un peu lourd a mettre en place mais on peux automatisé)
En ayant le numéro de ligne de l'erreur si tu as numéroté les ligne de tes procédure a la suite tu pourra repérer la procédure en questions

Esemple procédure 1 numéroté de 1000 a 1999 la deuxième de 2000 à 2999
, etc.

Dans ta gestion d'erreure

Code:

---

Msgbox "l'erreur a eu lieu dans la procédure : " & left(cstr(Erl()),1)

---

La faq sur la fonction ERL avec un lien pour numéroté les ligne (je ne sais aps comment fonctionne l'outil)