Discussion :

[cecyl]

Bonjour,

j'ai une petite question pratique sur les on Error Goto.

Je voudrais savoir si il est possible d avoir un code de ce type la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub test()
 
On Error GoTo CasErreur
'...
'procedure
'...
Dim i As Integer
    i = VerifClasseur(monFichier)
    Select Case i
        Case 0:
        Case 70:
        Case Else:
    End Select
Exit Sub
'...
'procedure
'...
CasErreur:  MsgBox ("il y a eu une erreur")
End Sub
 
Private Function VerifClasseur(Fichier As String) As Integer
Dim X As Integer
    On Error Resume Next
    X = FreeFile()
    Open Fichier For Input Lock Read As #X
    Close X
    VerifClasseur = Err.Number
    On Error GoTo 0
End Function

C est a dire est il possible d utiliser un On Error GoTo au debut de mon code, mais en meme temps d utiliser un On Error a un autre endroit de ma procedure (dans mon cas pour tester si un fichier est ouvert).

Je me demande si les erreurs liees a la recherche d un fichier deja ouvert (case 0 ou 70) vont etre aussi considerees comme des erreurs par mon premier On Error GoTo, ce qui n entrenerait aucune execution de ma procedure.
Ma question est surement simplissime, mais je viens de me lancer dans les On Error GoTo et je n ai pas trouve de reponse a ma question.

Merci !

[zyhack]

Bonjour

Je voudrais savoir si il est possible d avoir un code de ce type la :

oui mais, Dans Sub test le Exit Sub est mal placé car le code qui le suit ne sera jamais executé.

soit
- tu veux quitter le sub sur un défaut spécifique, dans ce cas tu met le Exit sub dans le case correspondant.

- tu veux quitter le sub sur n'inporte quel défaut que ta fonction t'as renvoyée, dans ce cas il faut effectuer un test (à la place de Exit Sub)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If i <> 0 Then Exit Sub

et dans tout les cas placer Exit sub juste avant CasErreur: pour éviter d'avoir le message pour rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'procedure
'...
Exit Sub
CasErreur:  MsgBox ("il y a eu une erreur")
End Sub

Je me demande si les erreurs liees a la recherche d un fichier deja ouvert (case 0 ou 70) vont etre aussi considerees comme des erreurs par mon premier On Error GoTo, ce qui n entrenerait aucune execution de ma procedure.

Non, le fait d'avoir mis en fin de ta fonction on error goto 0 reinitialise l'erreur (qui repasse à 0) donc quand tu reviens dans ton Sub c'est comme si tu n'avais pas eu d'erreur.

j'espère avoir été suffisemment clair dans mes explications.