Office: (Office 365) Datei kopieren und umbenennen

Hallo Ihr Lieben,

ich möchte gern eine bestimmte Datei kopieren und unter einem bestimmten anderen Namen speichern.
Mein Versuch klappt leider nicht. Kann mir den Teil des Kopierens bitte jemand korrigieren ?

Danke für Deine Antwort im Voraus.
Jens


Dim strPfad, SourceFile, DestinationFile As String
strPfad = ActiveWorkbook.Path

If ActiveWorkbook.Name Like "*Vorlage*" Then

Wiederholung:
cb = InputBox("Bitte einen Namen oder/und eine Nummer für das zu erstellende Angebot eingeben ! " & vbCrLf & vbCrLf & "Speicherort:" & vbCrLf & strPfad)

If cb <> "" Or cb = "cancel" Then
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\Angebot " & cb & ".xlsm"
If strPfad & "\Angebot " & cb & ".xlsm" Like "*Vorlage*" Then
MsgBox "Die Bezeichnung ''Vorlage'' ist im Dateinamen nicht erlaubt !"
If Dir(strPfad & "\Angebot " & cb & ".xlsm") <> "" Then Kill strPfad & "\Angebot " & cb & ".xlsm"
GoTo Wiederholung:

SourceFile = strPfad & Vorlage1.docx
DestinationFile = strPfad & "\TEST\" & "Angebot " & cb & ".docx"
FileCopy SourceFile, DestinationFile

End If
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub

 

benutze den Makrorecorder für das speichern.

 

Ich denke das es an der Syntax vom DestinationFile liegt, aber was ist daran falsch ?

Mit dem Makrorecorder wüsste ich gerade nicht wie ich das anstellen soll.

 

ActiveWorkbook.SaveAs Filename:= _
"W:\Eigene Dateien\...\...\...\...\...\....xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled

ich bin voin Excel ausgegangen

Gruß Hajo

 

Nein, keine Excel-Datei. Es soll eine Word-Datei kopiert und mit einem anderen Namen gespeichert werden.

 

Gut da bin ich nicht der Fachmann, aber was mir auffällt es wurde kein Verbindung mit Word erstellt.
Ich bin dann raus.

Gruß Hajo

 

Hab den Fehler gefunden.

falsche Verwendung:
Dim strPfad, SourceFile, DestinationFile As String

richtige Verwendung:
Dim strPfad As String
Dim SourceFile, DestinationFile

 

Was erreichst Du dann mit folgendem?
SourceFile = strPfad & Vorlage1.docx

 

Sorry, es heisst natürlich korrekt: SourceFile = strPfad & "\Vorlage1.docx"