Excel - makronaredba za automatsko spremanje dokumenata

Problem

Trebam makronaredbu za automatsko spremanje dokumenta, nakon zatvaranja programa Excel.

Riješenje

Uzmite u obzir da su ModèleGen i Onglet1 varijabilni nizovi.

 Sub SauveEnX () S radnim knjigama (ModèleGen) .Sheets (Onglet1) Nom_facture =. [A19] & "-" &. [G19] & "-" &. [T10] & ".xlsx" Kraj s Application.DisplayAlerts = False Radne knjige (ClasseurEnTravail) .SaveAs Naziv datoteke: = RepSauve & Nom_facture, _ FileFormat: = xlOpenXMLWorkbook, CreateBackup: = Netočno ActiveWorkbook.Close SaveChanges: = Netočno MsgBox Nom_facture & Chr (13) & Chr (13) & "sauvegardée!" Application.DisplayAlerts = Istinski kraj Sub 

Hvala lermite222 za ovaj savjet.