Il faut gérer l'erreur.
On Error Goto Gest_Err
' Ici le code à erreur
On Error Goto 0 ' Annule la capture d'erreur
Sortie:
Exit Sub
Gest_Err:
Select Case Err.Number
Case xxx ' No erreur connu
Resume Next ' Saute à la ligne suivant l'erreur
Case Else ' Erreur imprévue
MsgBox Err.Number & VbCrLf & Err.Description ' Affiche l'erreur
Resume Sortie ' Sort de la procédure
End Select
End Sub
Message édité par JihemAir le 08-06-2004 à 14:22:29