.: gestion d'erreur :.

Commenter

Contenu du snippet

Ben le titre.

Source / Exemple : 


On Error Goto error

    'Votre codd

    Exit Sub

error:

    Select Case MsgBox("Erreur " & Err.Number & vbCrLf & Err.Description, vbAbortRetryIgnore, "Pom")
        Case vbAbort
            Exit Sub
        Case vbIgnore
            Resume Next
        Case vbRetry
            Resume
    End Select

Conclusion :


Pour pur débutants only.
Niveau -8

Du même auteur (cs_Kaisermann)