Discussion :

[XceSs]

Bonjour, quand je clic sur la croix pour quitter un classeur j'ai un userform avec un bouton ok et un annuler qui s'ouvre avant de quitter mon classeur, comment puis je faire en sorte que quand on click sur ok ca quitte et annuler cela annule la fermeture ?

Merci de votre aide

[mercatog]

Dans un module public

Code :

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

Public validFerm As Boolean

Dans le module de ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show
Cancel = validFerm
End Sub

Et dans le code de tes boutons

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()'OK
validFerm = False
Unload Me
End Sub
 
Private Sub CommandButton2_Click()'Annuler
validFerm = True
Unload Me
End Sub

[XceSs]

J'ai testé et malheureusement ca fonctionne pas quand j'appuie sur le bouton annuler pour ne pas quitter :s

[mercatog]

Heureusement que j'avais testé avant de proposer la solution.
Relis ce qui a été proposé, en déclarant bien la variable ValidFerm dans un module standard public

[XceSs]

Dans le code de l'userform :

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
30
Public validFerm As Boolean
 
Private Sub CommandButton1_Click() 'OK pour quitter
validFerm = False
Unload Me
End Sub
 
Private Sub CommandButton2_Click() 'Annuler pour ne pas quitter
validFerm = True
Unload Me
Worksheets("Carnet de Bord").Activate
End Sub
 
Private Sub CommandButton3_Click() 'ENREGISTRER puis quitter
If Sheets("base").Range("R12") <> Empty Then
Dim mesv As String
mesv = Sheets("base").Range("R12").Value
If (mesv > 1) Then
rep = MsgBox(" Vous avez des messages vocaux d'enregistrer : " & mesv, vbInformation + vbYes, "Messages vocaux...")
End If
If (mesv = 1) Then
rep = MsgBox(" Vous avez un message vocal d'enregistrer ", vbInformation + vbYes, "Messages vocaux...")
End If
End If
Dim nom As String
nom = "CB" & Format(Cells(2, 2), " dd-mm-yyyy") & ".xlsm"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & nom
rep = MsgBox("Carnet de bord sauvegardé ce jour sous le nom : " & nom, vbInformation + vbYes, "Sauvegarde du carnet de bord...")
Unload Me
End Sub

Dans Thisworkbook :

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm4.Show
Cancel = validFerm
UserForm2.Show
End Sub

merci

[mercatog]

Dans un module standard (public), déclarer la variable validFerm

Code :

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

Public ValidFerm as boolean

Ensuite modifier ceci

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm4.Show
if ValidFerm then
Cancel = True
UserForm2.Show
endif
End Sub

et

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
Private Sub CommandButton3_Click()    'ENREGISTRER puis quitter
Dim mesv As Integer
Dim nom As String
 
If Sheets("base").Range("R12") <> "" Then
    mesv = Sheets("base").Range("R12").Value
    If mesv > 1 Then
        MsgBox " Vous avez des messages vocaux d'enregistrer : " & mesv, vbInformation + vbYes, "Messages vocaux..."
    Else
        MsgBox " Vous avez un message vocal d'enregistrer ", vbInformation + vbYes, "Messages vocaux..."
    End If
End If
nom = "CB" & Format(Sheets("base").Range("B2"), " dd-mm-yyyy") & ".xlsm"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & nom
MsgBox "Carnet de bord sauvegardé ce jour sous le nom : " & nom, vbInformation + vbYes, "Sauvegarde du carnet de bord..."
ValidFerm = False
Unload Me
End Sub

[XceSs]

exuse :s en fait ca marche j'avais fait une erreur merci