automatic name in 'save as dialog box' ok, but does not actually save the file?!

Hello people,

After searching long on these forums, I was able to create a macro which put a pre defined file name in the Save As dialog box, but after I hit the Save button, the file is not being saved.

Can anybody help me with this? What is wrong with my code:

Please Login or Register  to view this content.

Thanks in advance,

Marc.

Thanks Chippy,

But that doesn't work. It hangs on "ActiveWorkbook.SaveAs FName". ("this extension cannot be used with selected filename...")

I think it needs to incorporate something like "Application.Dialogs(xlDialogSaveAs).Show", but where and how...

I got so far by reading here: http://www.mrexcel.com/forum/excel-q...-save-yet.html

Here is my cleaned up code:

Please Login or Register  to view this content.

To clarify, what does work is:
- the Save As window opens
- the text of cell d2 is displayed as name
- the file format is set to .xlsx

What is not working is:
- After hitting the Save button the the Save As dialog box, the box disappears and I'm back in my sheet. But, the file has not been saved!

I found another one and tried it:

Please Login or Register  to view this content.

I found out that the problem seems to be with the file format choosing (filefilter); when I use .xlsx, then it does not work. When I use .xls in the code then it does work.

Also when I use .pdf instead of .xls, the file is beeing saved with the pdf extention, but it can not be opened because it is still a xls file.

How do I set the macro so, that it saves it in de format of my choosing?

Thanks Norie,

Your comment put me on the right track. I was able to get everything working in my invoice program, with automatic numbering and saving a xlsx and pdf version, with overwrite alert.

For anybody that is interested, here my complete code.

Thanks!

Please Login or Register  to view this content.