Excel - A macro to auto-save documents

August 2017



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


Published by jak58. Latest update on January 5, 2013 at 07:12 AM by jak58.
This document, titled "Excel - A macro to auto-save documents," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).