Excel - Makro pro automatické ukládání dokumentů

Problém

Potřebuji makro, aby se můj dokument automaticky uložil po uzavření aplikace Excel.

Řešení

Zvažte, že ModèleGen a Onglet1 jsou proměnné řetězce.

 Sub SauveEnX () Se sešity (ModèleGen). Listy (Onglet1) Nom_facture =. [A19] & "-" &. [G19] & "-" &. [T10] & ".xlsx" Konec aplikací.DisplayAlerts = False Sešity (ClasseurEnTravail) .SaveAs Název souboru: = 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 

Děkujeme lermite222 za tento tip.