Excel - макрос за автоматично запазване на документи

Проблем

Имам нужда от макро за автоматично запазване на моя документ, при затваряне на Excel.

Решение

Имайте предвид, че ModèleGen и Onglet1 са променливи низове.

 Sub SauveEnX () С работни книги (ModèleGen) .Sheets (Onglet1) Nom_facture =. [A19] & "-" &. [G19] & "-" &. [T10] & ".xlsx" End with Application.DisplayAlerts = False Работни книги (ClasseurEnTravail) .SaveAs Име на файл: = 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 

Благодаря на lermite222 за този съвет.