Datei unter anderen Namen speichern
08.12.2017 12:21:10
Peter
folgendes Problem beschäftig mich:
Ich möchte, wenn eine Excel Datei geöffnet wird, das diese Datei mit den Dateiname plus Datum in ein anderes Verzeichnis abgespeichert wird. Aber in der geöffnete Datei (also die ohne Datum) dann weiter gearbeitet werden kann.
Hier mein Anzatz (funktioniert leider nicht)
Private Sub Workbook_Open()
Dim strFile As String, strPfad As String
Dim strDatum As String, strNeuDatName As String
On Error Resume Next
strNeuDatName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & Format(Now, "YYYY-MM- _
DD") & ".xlsm"
strPfad = ThisWorkbook.Path
strFile = strPfad & "\Archiv\Sicherungen\" & strNeuDatName
ActiveWorkbook.SaveAs Filename:=strFile
Workbooks.open strPfad & "AlterDateiName.xlsm"
Workbooks(strNeuDatName).Close savechenges = False
End Sub
Vielen Dank
Peter (hpo)