Hallo zusammen,
ich habe mir ein Makro gebastelt bei dem eine Datei an 3 verschiedenen Orten gespeichert werden soll.
Bei 2 davon wird der Dateiname mit dem Datum vom gestrigem Tag ergänzt. Nur für den Montag klappt das nicht ganz Ideal da am Sonntag nicht gearbeitet wird.
Dann soll wenn ich am Montag das Makro benutze das Datum vom Freitag benutzt werden.
Könnt ihr mir da weiterhelfen?
Sub MDM_Fehlerreport_Speichern()
Dim fname, fname1, fname2, fpath1, fpath2, fpath3
fname1 = "MDM Fehlerreport" & ".xlsm"
fname2 = Format(Date - 1, "yyyymmdd") & "_" & "MDM Fehlerreport" & ".xlsm"
fpath1 = "J:\Kunden_Warenanalyse\"
fpath2 = "J:\Logistik_neu\"
fpath3 = "J:\Kunden_Warenanalyse\Public\Archiv"
ActiveWorkbook.SaveCopyAs fpath1 & fname1
ActiveWorkbook.SaveCopyAs fpath2 & fname2
ActiveWorkbook.SaveCopyAs fpath3 & fname2
End Sub
|