Select Case Err.Number

Version imprimable

03/10/2007, 01h31
Mario Rousson

Select Case Err.Number

Bonjour à tous,

Dans un code que j'utilise j'ai une série de case pour des erreurs différentes,

Maintenant, je me demande comment faire pour connaitre le numéro d'erreur de ma nouvelle création.

Quelqu'un peut me dire ou aller chercher les numéros de cases et ce qu'il veut dire.

merci
03/10/2007, 04h30
Invité

Bonjour

Peux-tu être un peu plus précis, car si tu gères ton erreur c'est que tu connais son numéro, non !

Et avec un exemple.

Starec

ok pardon je précise

voila, dans un code que j'ai batis avec votre aide (développez.com) biensur,
je me retrouve avec une gestion d'erreur qui parrait comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Err_Commande62_Click:
    Select Case Err.Number
Case 58: response = MsgBox("Voulez-vous l'ouvrir?", vbYesNo, "Le dossier " & Format(A, "0000") & B & " existe déjà")
If response = vbYes Then
' L'utilisateur a choisi Oui.
' Effectue une action.
    CHEMIN = "C:\Users\Mario\Documents\film\act\" & C
dblSuccess = Shell("Explorer.exe /e, " & CHEMIN, vbMaximizedFocus)
Else    ' L'utilisateur a choisi Non.
    MyString = "Non"    ' Effectue une action.
End If
Case 76: MsgBox "Chemin incorrect"
Case Else: MsgBox "Erreur inconnue"
End Select
 
    Resume Exit_Commande62_Click

Voila et ça vient pas de moi, jaimerais bien en apprendre plus sur la façon donc cela fonction.