Excel - A macro to auto-save documents

December 2016



Issue


I need a macro to automatically save my document, upon closing Excel.

Solution


Consider that ModèleGen and Onglet1 are variable strings.
Sub SauveEnX()  
    With Workbooks(ModèleGen).Sheets(Onglet1)  
        Nom_facture = .[A19] & " - " & .[G19] & " - " & .[T10] & ".xlsx"  
    End With  
    Application.DisplayAlerts = False  
    Workbooks(ClasseurEnTravail).SaveAs Filename:=RepSauve & Nom_facture, _  
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False  
    ActiveWorkbook.Close SaveChanges:=False 
    MsgBox Nom_facture & Chr(13) & Chr(13) & " sauvegardée !"  
    Application.DisplayAlerts = True  
End Sub

Thank to lermite222 for this tip.

Related :

This document entitled « Excel - A macro to auto-save documents » from CCM (ccm.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.