Can't save file using a msoFileDialogSaveAs

Franci · #1 01-07-2023, 04:56 AM

Hi!

I have a macro, that should show a file save as dialog and save the file:

Code:

Sub ShowSaveAsDialog()
 Dim dlgSaveAs As FileDialog
 
 Application.FileDialog(msoFileDialogSaveAs).InitialFileName = FName
 
 Set dlgSaveAs = Application.FileDialog( _
 FileDialogType:=msoFileDialogSaveAs)
 dlgSaveAs.Show
 End Sub

I call this macro when the document is closed. When I call it, the dialog shows up (see clipboard1.jpg - sorry, but it's in my native language) and I can select the folder and change the file name, but when I klick on the Save button, the dialog closes and the file isn't saved. Then "Save your changes to this file" dialog opens asking if I would like to save the file (clipboard2.jpg).
In this second dialog the initial file name is not the same as in the first dialog, and also the location for saving not as required.

Can someone please explain why the macro isn't working?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2000 Backup File Modification Date Not Changing When I Save an XLS File	skeezix	Excel	3	01-10-2021 04:51 PM
save dialog box promt doesn't save file	brmveen	Word VBA	2	11-04-2015 12:51 AM
Auto Save Every Page(s) as a separate file, and name each new file automatically by the first line?	commissarmo	Word VBA	3	03-14-2015 12:53 AM
error: You are attempting to save a file format that is blocked by file block setting	zatlas1	Office	8	04-28-2012 02:37 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM