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

**Currahee** · 19/06/2007, 16h48

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 :

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

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

**marsupilami34** · 19/06/2007, 16h53

Pourquoi tu jne ferez pas tout simplement ca ?

Code :

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

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

**Currahee** · 19/06/2007, 16h57

Envoyé par marsupilami34

Pourquoi tu jne ferez pas tout simplement ca ?

Code :

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

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 ?

**LeForestier** · 19/06/2007, 19h56

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+

**SilkyRoad** · 19/06/2007, 20h49

bonsoir

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

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
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

Invité · 20/06/2007, 09h24

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

**Currahee** · 21/06/2007, 11h00

Envoyé par SilkyRoad

bonsoir

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

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
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

**SilkyRoad** · 21/06/2007, 12h46

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

**Currahee** · 21/06/2007, 14h31

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

**Currahee** · 21/06/2007, 14h36

Envoyé par SilkyRoad

bonsoir

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

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
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

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.