IBM Lotus Symphony


Instruction On Error GoTo ... Resume [Exécution]

Active un programme de gestion des erreurs suite à une erreur, ou reprend l'exécution du programme.

Syntaxe :

On {Error GoTo NomEtiquette | GoTo 0 | Resume Next}

Paramètres :

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.

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques