IBM Lotus Symphony
|
Active un programme de gestion des erreurs suite à une erreur, ou reprend l'exécution du programme.
On {Error GoTo NomEtiquette | GoTo 0 | Resume Next}
GoTo Labelname : si une erreur se produit, active le programme de gestion des erreurs à partir de la ligne "Labelname".
Resume Next : si une erreur se produit, le programme se poursuit en exécutant l'instruction qui suit l'instruction dans laquelle l'erreur s'est produite.
GoTo 0 : désactive le gestionnaire des erreurs dans la procédure active.
L'instruction On Error GoTo permet de réagir aux erreurs se produisant dans une macro. L'instruction doit être insérée au début d'une procédure (dans un programme local de gestion des erreurs) ou au début d'un module.
Sub ExampleReset
On Error Goto ErrorHandler
Dim iNumber As Integer
Dim iCount As Integer
Dim sLine As String
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Ceci est une ligne de texte."
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
For iCount = 1 to 5
Line Input #iNumber, sLine
If sLine <>"" then
rem
end if
Next iCount
Close #iNumber
Exit Sub
ErrorHandler:
Reset
MsgBox "Tous les fichiers seront fermés",0,"Erreur"
End Sub