IBM Lotus Symphony
|
Renvoie le numéro de la ligne dans laquelle une erreur s'est produite lors de l'exécution du programme.
Erl
Nombre entier
![]() |
La fonction Erl renvoie uniquement un numéro de ligne et non un libellé de ligne. |
sub ExampleError
on error goto ErrorHandler REM Configurer le gestionnaire des erreurs
Dim iVar As Integer
Dim sVar As String
REM Erreur due à un fichier inexistant
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Erreur " & err & " : " & error$ + chr(13) + "A la ligne : " + Erl + chr(13) + Now , 16 ,"Une erreur s'est produite"
end sub