Save as with calculated filename - VBA

[Vispon]

Hi everyone, I've found a few different threads on the elements of this but I haven't been able to cobble them together, hoping you may be able to help.

I'm looking to run a command which will

• open the save as dialogue on screen
• Defaultly fill the file name with 'INV_TRC_[cel c1]_[current date time as DDMMYYYYHHMMSS]
• file type CSV

I came across the below which does some of it but I'm having trouble piecing it all together :/

[COLOR=#2D4050][FONT='inherit']Sub SaveUnique() 
'
' Save a file with a unique name 
' 
ActiveWorkbook.SaveAs Filename:="C:\Temp\Book" & Format(Now(), "yyyymmddhhmmss") & ".xlsx", _ 
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
End Sub[/FONT][/COLOR]

 

[Scott T]

Does this do what you want?

Sub savecsv()
myfilename = "INV_TRC_" & Range("c1") & "_" & Format(Now(), "DDMMYYYYHHMMSS")
Filename = Application.GetSaveAsFilename(InitialFileName:=myfilename, fileFilter:="csv Files (*.csv), *.csv")

End Sub

 

[Vispon]

Thanks Scott

That brings up the save dialogue with the file name perfectly.
The only odd issue I'm having is when I then click save the file doesn't seem to actually be saved in the destination?

 

[Scott T]

Try this.

Sub savedi()
myfilename = "INV_TRC_" & Range("c1") & "_" & Format(Now(), "DDMMYYYYHHMMSS")
Filename = Application.GetSaveAsFilename(InitialFileName:=myfilename, fileFilter:="csv Files (*.csv), *.csv")
ActiveWorkbook.SaveAs Filename:=Filename

End Sub

 

[Vispon]

That's got it!

Thank you very much

 

[Scott T]

Glad to help.