Option Explicit
Public CasOk As Boolean, CasErr As Byte
'
Public Sub PrévoirCas(E As ErrObject, ParamArray Prévu())
Dim N As Long, Z As String
CasOk = E.Number = 0: If CasOk Then CasErr = 0: Exit Sub
For N = 0 To UBound(Prévu)
If E.Number = Prévu(N) Then CasErr = N + 1: Exit Sub
Next N
Z = "PrévoirCas Err"
For N = 0 To UBound(Prévu)
Z = Z & ", " & Prévu(N)
Next N
Z = Z & ", " & E.Number & vbLf & "Rem. " & N & ") " & E.Description
PressPapier = Z
MsgBox E.Description & vbLf & "_______________________________________________________" & vbLf & vbLf & """" & Z _
& """ a été mis dans le presse papier !", vbExclamation, "Débogage obligatoire d'erreur " & E.Number
Stop
End Sub
'
Property Let PressPapier(Z As String)
Dim DOb As New DataObject
DOb.SetText Z
DOb.PutInClipboard
End Property
Property Get PressPapier() As String
Dim DOb As New DataObject
DOb.GetFromClipboard
PressPapier = DOb.GetText
End Property