Private Sub Workbook_Open()
Test_erreur_ouverture
End Sub
Sub Test_erreur_ouverture()
'.....................
On Error GoTo 0
' code du programme
Err.Clear
On Error GoTo ERR_EXE
' tests d'erreur
Err.Raise 6 ' Dépassement de capacité
'n = 10 / 0 ' Division par zéro
On Error GoTo 0
MsgBox "OK sans erreur" ' contrôle à supprimer plus tard
Exit Sub
ERR_EXE:
' gestion d'erreur
If Err.Number <> 0 Then
Msg = Format(Now, "yyyymmdd") & "-" & Format(Now, "hh:mm:ss") & " : l'erreur # " & Str(Err.Number) & _
" a été générée par le fichier " & Chr(34) & ThisWorkbook.Name & Chr(34) & _
" " & Err.Source & vbTab & Err.Description
' Ouverture ou création du fichier texte d'erreur pour ajout de texte
fNom = "Fichier_Erreurs.txt"
fChem = ThisWorkbook.Path
Open fChem & "\" & fNom For Append As #1
Print #1, Msg ' ajout de la nouvelle erreur
Close #1 ' Ferme le fichier.
' voir pour imprimer le fichier si nécessaire
'......
' fermeture du programme (SI NECESSAIRE)
'ThisWorkbook.Close SaveChanges:=False
End If
End Sub