[VBA-E] Recuperer le nom de la fonction en cours d'execution

Bonjour à tous,

Est-il possible en VBA sous Excel de récupérer le nom de la fonction ou procédure en cours d'exécution ???

Mon tout petit objectif étant de récupérer ce nom pour ma gestion d'erreur.

Ex simplifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Developpez() On error Goto Gestion_Erreurs ... ... Gestion_Erreur: NomFonction = ??? ' = Developpez Msgbox NomFonction End Function

---

Merci d'avance à ceux qui pourront m'aider,

Currahee

Pourquoi tu jne ferez pas tout simplement ca ?

Code:

---

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

Function Developpez() On error Goto Gestion_Erreurs   ... ...   Gestion_Erreur: NomFonction = "Developpez" Msgbox NomFonction   End Function

---

Citation:

---

Envoyé par marsupilami34

Pourquoi tu jne ferez pas tout simplement ca ?

Code:

---

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

Function Developpez() On error Goto Gestion_Erreurs   ... ...   Gestion_Erreur: NomFonction = "Developpez" Msgbox NomFonction   End Function

---

---

Petit malin ;)

Merci de ta réponse, c'est ce que je fais actuellement, mais sur un prog avec une cinquantaine de fonctions, copier-coller ce morceau de code en changeant à chaque fois le nom de la fonction en dur, c'est chiant... et si tu oublies de le faire sur une fonction, tu piges pas l'erreur remontée quand elle survient.

Si on peut récupérer le nom de la procédure, ou de la fonction en cours d'execution de façon dynamique, plus besoin de changer le code en dur à chaque fois ;)

Autre solution les Developpeurs ?

bonjour, behhh oui, j'ai bien une autre idée mais je ne sais pas si elle te conviendra.
Déclarer une variable publique (ex: DétectErr as integer et un tableau string ex: DetecText(50) as string
en entrée de macro initialiser DétecErr à 1,2,3,etc... dans la string mettre le nom de la macro. C'est un peu de boulot au début mais après ce serra automatique.
Ou une autre solution si les appels ne sont pas trop fréquent, déclarer DetecText as string et juste avant d'appeler la macro mettre le nom de la macro dans la variable, cette solution est plus simple.
A+

bonsoir


Une autre possibilité (mais qui revient au même que ce qui a déja été proposé)

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 26 27 28 29 30

Option Explicit   Sub Test() Dim x As Integer   On Error GoTo Fin   'Va provoquer une erreur (division par 0) x = 5 / 0   ' '... '   Exit Sub   Fin: Call NomMacroActive End Sub       Sub NomMacroActive() Dim i As Long   With Application.VBE.ActiveCodePane .GetSelection i, 0, 0, 0 MsgBox .CodeModule.ProcOfLine(i, 0) End With End Sub

---

Sinon tu peux aussi numéroter les lignes de code et utiliser la fonction ERL pour la gestion d'erreur (tu sauras ainsi quelle ligne a posé problème).

http://silkyroad.developpez.com/VBA/...rreurs/#LIII-C



michel

Bonjour

Si tu utilises l'Addin MZ_Tools que tu trouveras là : http://www.mztools.com/index.htm, attention prend celui pour VBA, il te permet de créer un code de gestion d'erreur avec en paramètre la routine dans laquelle se trouve la gestion d'erreur.

Starec

Citation:

---

Envoyé par SilkyRoad

bonsoir


Une autre possibilité (mais qui revient au même que ce qui a déja été proposé)

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 26 27 28 29 30

Option Explicit   Sub Test() Dim x As Integer   On Error GoTo Fin   'Va provoquer une erreur (division par 0) x = 5 / 0   ' '... '   Exit Sub   Fin: Call NomMacroActive End Sub       Sub NomMacroActive() Dim i As Long   With Application.VBE.ActiveCodePane .GetSelection i, 0, 0, 0 MsgBox .CodeModule.ProcOfLine(i, 0) End With End Sub

---

Sinon tu peux aussi numéroter les lignes de code et utiliser la fonction ERL pour la gestion d'erreur (tu sauras ainsi quelle ligne a posé problème).

http://silkyroad.developpez.com/VBA/...rreurs/#LIII-C



michel

---

Merci ça à l'air d'être ce que je recherche.

Mais la méthode VBE plante chez moi.

J'ai excel 2003, il y a visiblement une bibliothèque à rajouter pour que cela fonctionne ?

Merci d'avance, cordialement

bonjour

Dans le menu menu Outils/Macro/Sécurité/Onglet Sources fiables.
Vérifie que les deux options sont cochées et clique sur le bouton OK pour valider


michel

Citation:

---

Envoyé par SilkyRoad

bonjour

Dans le menu menu Outils/Macro/Sécurité/Onglet Sources fiables.
Vérifie que les deux options sont cochées et clique sur le bouton OK pour valider


michel

---

Oui c'était ça, avec pour précision que l'onglet chez moi s'appele Editeurs Approuvés.

L'option à cocher est Faire confiance au projet Visual Basic

Citation:

---

Envoyé par SilkyRoad

bonsoir


Une autre possibilité (mais qui revient au même que ce qui a déja été proposé)

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 26 27 28 29 30

Option Explicit   Sub Test() Dim x As Integer   On Error GoTo Fin   'Va provoquer une erreur (division par 0) x = 5 / 0   ' '... '   Exit Sub   Fin: Call NomMacroActive End Sub       Sub NomMacroActive() Dim i As Long   With Application.VBE.ActiveCodePane .GetSelection i, 0, 0, 0 MsgBox .CodeModule.ProcOfLine(i, 0) End With End Sub

---

Sinon tu peux aussi numéroter les lignes de code et utiliser la fonction ERL pour la gestion d'erreur (tu sauras ainsi quelle ligne a posé problème).

http://silkyroad.developpez.com/VBA/...rreurs/#LIII-C



michel

---

Donc ça marche sauf qu'il ne faut pas placer l'appel à GetSelection dans une fonction à part, car dans l'exemple ci-dessus ça retourne chez moi NomMacroActive...

Après je ne sais pas comment fonctionne exactement cette propriété, et nottament à quoi correspond le i... J'ai essayé innocemment un i-1 dans la msgbox, sans succès :mrgreen:

Du coup je placerai cette ligne de code dans chaque fonction s'il n'y a pas d'autres soluces. C'est pas plus gênant que ça.

Pour les modules de formulaires c'est plus facile, on peut mettre :

Code:

---

CodeContextObject.Name

---

pour avoir le nom du formulaire qui a générer l'erreur

et

Code:

---

Screen.ActiveControl.Name

---

pour avoir le nom du contrôle

Donc il faut avoir deux fonctions une pour les sub des formulaires et états
et une autre pour les fonctions