Excel - makró a dokumentumok automatikus mentéséhez

Probléma

Egy makróra van szükségem a dokumentum automatikus mentéséhez, az Excel bezárásakor.

Megoldás

Vegyük figyelembe, hogy a ModèleGen és az Onglet1 változó karakterláncok.

 Sub SauveEnX () munkafüzetekkel (ModèleGen). Lapok (Onglet1) Nom_facture =. [A19] & "-" &. [G19] & "-" &. [T10] & ".xlsx" Vége az alkalmazással. Munkafüzetek (ClasseurEnTravail) .SaveAs fájlnév: = RepSauve & Nom_facture, _ FileFormat: = xlOpenXMLWorkbook, CreateBackup: = Hamis ActiveWorkbook.Close SaveChanges: = Hamis MsgBox Nom_facture & Chr (13) & Chr (13) & "sauvegardée!" Application.DisplayAlerts = True End Sub 

Köszönjük a lermite222-nek ezt a tippet.