Datei per VBA vor Schließen kopieren.

Hallo, ich habe auf einem Server eine Datei. Diese soll vor dem beenden in einen anderen Ordner kopiert werden. Ich habe zwei Formeln die aber beide nicht klappen.

1. Formel von Chatgpt

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    'Pfad und Dateinamen der Quelldatei
    Dim Quellpfad As String
    Dim Quellname As String
    Quellpfad = ActiveWorkbook.Path & "\"
    Quellname = ActiveWorkbook.Name

    'Pfad und Dateinamen des Zielorts
    Dim Zielordner As String
    Dim Zielname As String
    Zielordner = "C:\Users\" & Environ("username") & "\OneDrive - Firma\Unerordner 1\Unterordner 2\Unterordner 3\Backup vom Server\"
    Zielname = ActiveWorkbook.Name

    'Kopiere die Datei
    FileCopy Quellpfad & Quellname, Zielordner & Zielname
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myFSO As Object
Dim qFolder As String
Dim tFolder As String
Dim qFile As String
qFile = "Liste 2023.xlsm"
qFolder = "\\Server2023\Firma\Person\Team"
tFolder =  "C:\Users\" & Environ("username") & "\OneDrive - Firma\Unerordner 1\Unterordner 2\Unterordner 3\Backup vom Server\"
'Kill tFolder & qFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.movefile qFolder & qFile, tFolder & qFile
'Alternativ kopieren
'myFSO.copyfile qFolder & qFile, tFolder & qFile, True
End Sub