Save my document

[wmbb]

Why doesn't this code save my document as "planning 2011.xlsm" when clicked on save?
This code doesn't save anything !

Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
          .AllowMultiSelect = False
          .InitialView = msoFileDialogViewDetails
          .Title = "Choose file location..."
          .InitialFileName = "planning 2011.xlsm"
          .Show
End With

 

[macropod]

Hi wmmb,
You need to execute the save and, since you want to save in xlsm format, you also need to set the filterindex (otherwise an xlsx format will be offered)

With Application.FileDialog(msoFileDialogSaveAs)
  .FilterIndex = 2
  .AllowMultiSelect = False
  .InitialView = msoFileDialogViewDetails
  .Title = "Choose file location..."
  .InitialFileName = "planning 2011.xlsm"
  If .Show <> -1 Then .Execute
End With

Cheers
Paul Edstein
[MS MVP - Word]

 

[wmbb]

I can't get this code working.

First I think the code should be

If .Show = -1 Then .Execute

because when I click on save the value equals -1

But in both cases the file doesn't save.

In case .show <> -1 the file doesn't save when clicked on save or cancel
In case .show = -1 the file doesn't save when clicked on cancel and an error appears when clicked on save:
Run-time error '-2147467259 (80004005)'
Method 'Execute' of object 'FileDialog' failed

Any Suggestions ?

 

[wmbb]

Additional information...

I figured out the code shows a "File Save" dialog instead of a "Save As" dialog.

Maybe this gives you an idea what goes wrong...

 

[macropod]

Hi wmbb,

Yes, it should have been:

If .Show = -1 Then .Execute

Other than that, the code works fine for me.

Cheers
Paul Edstein
[MS MVP - Word]

 

[wmbb]

Is the dialog for you a "File Save" dialog or a "Save As" dialog ?
Do you recognize the error ?
Could this be a MS Office setting ?

Searching the internet they are talking about an error caused by the wrong use of the active document and ThisDocument. Do you what they mean by that ?

 

[wmbb]

Another strange phenomena, in MS WORD the code works without any problem ??!!