Gestion erreur dans module de class E97
Bonjour,
j'utilise le tutoriel de Pierre Fauconnier sur les modules de classes "Création et utilisation de classes personnalisées en VB 6.0 et vb". Je reste bloqué sur "Génération d'une erreur au sein de la classe" partie IV-D-1. Le 2eme bloc de code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| On Error GoTo Erreurs
Contact.Prenom = "Pierre"
Contact.DateNaissance = DateSerial(2008, 12, 26)
MsgBox Contact.Prenom & " a " & Contact.Age & " ans"
Erreurs:
Select Case Err
Case -2147221503
MsgBox "La date saisie n'est pas valide et ne sera pas enregistrée", vbOKOnly + vbExclamation, "Erreur de saisie"
Resume Next
End Select" |
que j'ai inséré dans un module ne prend pas la main.
Merci pour les explications que vous pourriez m'apporter.
Eric
E97 Classeur Gestion Erreur module class
Le classeur Tuto.xls en Pj ne comporte qu'une vingtaine de ligne de code.
Merci
Eric
E97 Classeur Gestion Erreur module class
Est ce que cela correspond à la philosophie de la gestion des erreurs dans un module de classe?
Cordialement
Eric
