Aide quitter Excel

bonjour a tous

voici mon code pour enregistre mon classeur qui marche nickel, la seule chose qui me manque c'est la fermeture de mon classeur juste après avoir enregistre

merci a tous

Sub enregistre_classeur() 'copie sauvegarde classeur
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "D:\entrep\Programme gestion" & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub

Bonjour,

As-tu essayer de rajouter (juste avant End Sub) : ActiveWorkbook.Close ?

merci mais excel ne se ferme pas totalement j'ai mis

Application.Quit

mais a chacun nouveau enregistrement il me rajouter la date pourquoi?

Je pense que c'est normal, c'est ce que tu demandes dans ta macro non ?

Tu demande de l'enregistrer sous D:\entrep\Programme gestion" & "\" & nom.

Nom étant la date + le titre du classeur si je ne me trompe pas...

bonjour

pas erreur c'est bien sa, mais pas grave je laisse comme cela pour le moment

merci