Rechnung.SaveAs2 FileName:="D:\Dein\vollständiger\Pfad\Rechnung" & Tab1.Range("A2") & ".docm", FileFormat:=wdFormatXMLDocumentMacroEnabled
sollte klappen.
Wichtig ist: Du musst den vollständigen Pfad angeben (ChangeFileOpenDirectory kannst du dir sparen).
Grüße
|