SaveAs code doesn't work

[wmbb]

I want to open the saveas dialog to save a workbook using VBA.
I've created the code below but it doesn't work.
"methode 'execute' of object 'filedialog' failed"
Has anyone an idee what goes wrong ?

Sub SaveWorkbook()
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
  .FilterIndex = 2
  .AllowMultiSelect = False
  .InitialView = msoFileDialogViewDetails
  .Title = "Choose file location..."
  .InitialFileName = "save_test" & ".xlsm"
  If .Show = -1 Then .Execute
End With
Set fd = Nothing
End Sub

 

[PHV]

Why not use the Application.GetSaveAsFilename method?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[wmbb]

Because I didn't know about this method !
I'm no expert in programming and I try to learn VBA by this forum and [Try and Error]
I'll try this methode and see if I can use this.

Thanks for your suggestion.

 

[wmbb]

I changed the code to...

fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="save_test.xlsm" _
FileFilter:="Test Workbook , *.xlsm", _
Title:="Choose file location...")
If fileSaveName <> False Then ActiveWorkbook.SaveAs FileFormat:=fileSaveName

But this code also gives the same error:
"Methode 'SaveAs' of object '_Workbook' failed"

 

[strongm]

This error often occurs becasue the selected file format for the save is wrong. This is surely the case for your GetSaveAsFilename code

ActiveWorkbook.SaveAs FileFormat:=fileSaveName

should probably be

ActiveWorkbook.SaveAs Filename:=fileSaveName

This does not explain why you get the problem with your original code, unless there is additional code that you didn't show us.

 

[wmbb]

Thank you for your response.
You were right, a little type error.
Changed ActiveWorkbook.SaveAs FileFormat:=fileSaveName to ActiveWorkbook.SaveAs fileSaveName and it works like it should.

Thanks again.