Discussion :

[zackyzac]

Bonjour bonjour,
je suis tjrs débutant et voila j'ai essayé d'adapter un code mais je n'y arrive pas si quelqu'un savait m'indique ce qui ne fonctionne pas et vous avez la solution ca sera avec plaisir.

Merci d'avance

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
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
    Dim rep As Long
    If CloseMode = 0 Then
    rep = MsgBox(prompt:="Souhaitez-vous sauvegarder ?", Title:="Attention", Buttons:=vbYesNoCancel)
 
 
    If rep = vbYes Then
' Enregistrement_sous
    ActiveWorkbook.Save
    Unload Me
    ActiveWorkbook.Close
    ElseIf rep = vbNo Then
            Unload Me
    ActiveWorkbook.Close
    ElseIf rep = vbCancel Then
        Cancel = True
    End If
 
 
 
End Sub

[unparia]

Bonjour

1) Qu'est auto_close ?
2) il y a un bloc if sans End If (un indentation en règle de ton code t'aurait permis de le voir).

[zackyzac]

Merci de ton aide, j'ai laissé tomber cette méthode mais merci de m'avoir répondu