Discussion :

[pao47]

Bonjour,

j'utilise On Error GoTo pour m'afficher les erreurs lors de l'exécution d'une macro VBA excel.

J'aimerai voir apparaitre dans la boite de dialogue : la feuille où a eu lieu l'erreur. Savez-vous si cela est possible ? si oui pouvez-vous m'aider ? je n'ai pas trouvé de discussion sur le sujet. j'ai essayé d'ajouter Err.source à la ligne ci-dessous mais il m'indique juste que c'est une erreur dans un classeur excel et non la feuille concernée ou l'objet concerné.

Code :

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

1
2
3
On Error GoTo Erreur
Erreur:
MsgBox "Erreur n° " & Err.Number & vbLf & Err.Description & Err.Source

Merci d'avance

Bien à vous,

paolino

[Ben_L]

Bonjour,

A ma connaissance, la fonctionnalité dont vous souhaiteriez disposer n'existe pas. Elle n'aurait d'ailleurs pas vraiment de sens, puisque l'erreur survient dans le code VBA, pas dans une feuille en particulier...
C'est à vous de gérer cette information. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim OuSuisJe As String
On Error GoTo Erreur
OuSuisJE = "Classeur ABC.xlsx, Feuille 'Données'"
'Ici je fais plein d'opérations dans la feuille "Données" du classeur "ABC.xlsx"
 
OuSuisJE = "Classeur DEF.xlsx, Feuille 'Feuil27'"
'Ici je fais plein d'opérations dans la feuille "Feuil27" du classeur "DEF.xlsx"
 
OuSuisJE = "Classeur ABC.xlsx, Feuille 'WrkSht'"
'Ici je fais plein d'opérations dans la feuille "WrkSht" du classeur "ABC.xlsx"
 
Erreur:
MsgBox "Erreur n° " & Err.Number & " lors d'opérations dans le " & OuSuisJe & vbLf & Err.Description

Cdt

[pao47]

Ben_L merci pour ton aide. C'est bon j'ai compris. cela fonctionne

bonne journée,

paolino

PS : je clos le sujet.