bestand opslaan

[AD1957]

Hoe krijg ik het voor elkaar om een bestand onder een andere naam op te slaan en het originele
bestand geopend te houden.

Met onderstaande code lukt het niet, na uren zoeken heb ik de moed opgegeven.

Private Sub CommandButton1_Click()

Dim fPath As String

fPath = "C:\Users\" & Environ("username") & "\Desktop\"
ActiveWorkbook.SaveAs Filename:=fPath & Range("C2").Value & ".xlsb", FileFormat:=50

ActiveWorkbook.Close

Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Desktop\TEST OPSLAAN.xlsb"

End Sub

 

[VenA]

Private Sub CommandButton1_Click()
  Dim fPath As String
  fPath = "C:\Users\" & Environ("username") & "\Desktop\"
  ActiveWorkbook.[COLOR="#FF0000"]SaveCopyAs[/COLOR] fPath & Range("C2").Value & ".xlsb"
End Sub

 

[AD1957]

VenA bedankt:thumb: