Excel - Makro untuk menyimpan dokumen secara otomatis

Isu

Saya membutuhkan makro untuk secara otomatis menyimpan dokumen saya, setelah menutup Excel.

Larutan

Pertimbangkan bahwa ModèleGen dan Onglet1 adalah string variabel.

 Sub SauveEnX () Dengan Buku Kerja (ModèleGen) .Sheets (Onglet1) Nom_facture =. [A19] & "-" &. [G19] & "-" &. [T10] & ".xlsx" Akhiri Dengan Aplikasi.DisplayAlerts = False Workbooks (ClasseurEnTravail) .Simpan Sebagai Nama file: = RepSauve & Nom_facture, _ FileFormat: = xlOpenXMLWorkbook, CreateBackup: = False ActiveWorkbook.Tutup SaveChanges: = False MsgBox Nom_facture & Chr (13) & Chr (")" Application.DisplayAlerts = Sub True End 

Terima kasih kepada lermite222 untuk tip ini.