Bestand opslaan met 2 veldnamen in macro

[Peter2016]

Hallo,

Ik wil een excel bestand opslaan met als bestandsnaam 2 velden uit het bestand.
als voorbeeld op A1 staat "Hans", B1 staat "Juni_2016".
Ik wil dat het bestand opgeslagen wordt als c:\Hans Juni_2016.xlsm
Met 1 veld (a1) is het al gelukt, nu nog de 2e erbij

Sub opslaan()
'
' opslaan Macro
'

'
Range("D9").Select
ChDir "C:"
ActiveWorkbook.SaveAs Filename:="C:" & CStr(Range("A1").Value) & ".xlsm" ', FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[edmoor]

Waarden kan je aan elkaar plakken met het & teken, dus ook van 2 cellen.
En waar staat het \ teken? Die wordt wel genoemd in je uitleg maar zie ik niet in je code.
Kan ook het forum zijn die hem weg heeft gehaald.

Je bestandsnaam wordt dan:
"C:\" & Range("A1").Value & Range("B1").Value & ".xlsm"

Die ChDir kan je helemaal achterwege laten.

 

[Peter2016]

Edmoor, bedankt voor je hulp, getest en het werkt. Heb zelf nog een spatie toegevoegd. Top!