Macro enregistrer et quitter

bonsoir

j'ai un problème avec une macro pour enregistrer un fichier excel sans passer par une confirmation

merci

bonsoir,

mets ceci

application.displayalerts=false

ton instruction save

application.displayalerts=true

merci pour ta réponse mais le code ne marche pas

Bonjour,

Code pour enregistrer et quitter sans message de confirmation.

Option Explicit
Private Sub CommandButton1_Click()
    ThisWorkbook.Save
    Application.Quit
End Sub

Merci pour la réponse mais il y a un message d'erreur je n'arrive pas a corriger.

bonjour,

j'ai ce code dans un fichier et il marche à la perfection, il faut bien sur avoir enregistré auparavant le fichier quelque part. Et le code doit être dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveWorkbook.ReadOnly Then
        Application.EnableEvents = False
        MsgBox "classeur non enregistré"
        Me.Close
    Else
        Me.Save
    End If
End Sub

cordialement

Francky