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 : Sélectionner tout - Visualiser dans une fenêtre à part
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