Can I make my Save as Dialoge box pop up with Documents as location?

[tonywatsonhelp]

Hi everyone,

We have a document that is saved in a sharepoint.

I want to make saving a copy easy for others but also give them the choice of where they save the document.
so I created a save button and when click it runs this code:

Sub filesave()
    Dim bFileSaveAs As Boolean
    bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
    If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical
End Sub

which works but defults the save as location to the sharepoint area, I want them to save it to their computer so the ideal defult would be the documents folder
any ideas how I can edit my code (or get a different code) that when the save as box pops up it is defaulted to the documents folder??

Thank

Tony

 

[Norie]

Tony

If you use GetSaveAsFilename you can use ChDrive and ChDir to change the current folder and when the dialog appears that will be the folder in view.

Dim bFileSaveAs As Boolean
    
    ChDrive "C:\"
    ChDir "C:\Test"
    
    bFileSaveAs = Application.GetSaveAsFilename
    
    
    If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical

 

[tonywatsonhelp]

Thanks Norie,
just one small edit and worked great. big big help thank you
the code i used:

Sub save1()
Dim bFileSaveAs As Boolean
    
    ChDrive "C:\"
    'ChDir "C:\Test"
    ChDir Environ("USERPROFILE") & "\Desktop\"
    bFileSaveAs = Application.GetSaveAsFilename
    If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical

End Sub