Salut,

Lors de la fermeture d'un code ouvert, je demande s'il faut le sauvegarder. J'essai de faire en sorte que lorsque l'utilisateur dit "OUI" puis qu'il annule à l'ouverture de la boite de dialogue, rien ne se passe.
Mais aucun moyen mon code est executé et tout se faire.

Voila ma source:

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
Function CloseLink()
    If IsSave = False Then
        Erreur = MsgBox("Voulez-vous sauvegarder la connection actuelle?", vbExclamation + vbYesNoCancel, "Sauvegarder?")
            Select Case Erreur
                Case vbYes
                    Call Save
                Case vbNo
                Case vbCancel
                    GoTo Annul
            End Select
        End If
        ' "Tout se ferme" c'est ce qui suit
        IsSave = False
        Label1.Visible = True
        TextCode.Visible = False
        mnu_save.Enabled = False
        mnu_fermer.Enabled = False
        mnu_edit.Enabled = False
        Form1.Toolbar1.Buttons(3).Enabled = False
        Form1.Toolbar1.Buttons(5).Enabled = False
        Form1.Toolbar1.Buttons(6).Enabled = False
        Form1.Toolbar1.Buttons(7).Enabled = False
Annul:
    Exit Function
End Function
Et ma fonction Save:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Save()
    On Error GoTo Annul
    OpenSave.FileName = Trim(Form2.Text1(0).Text)
    OpenSave.ShowSave
    IsSave = True
    Dim FileSave As String
    FileSave = OpenSave.FileName
    Open FileSave For Output As #1
        Print #1, "blabla"
    Close #1
 
Annul:
    Exit Function
End Function
D'ou vien ce problème?
Merci