The code have an error and do not run

[torti111]

Hi all,

with the following the VBA should open a "save as" window in Folder G:\Shareplan\test_31686\Plan\07\
The user should choose a subfolder for example G:\Shareplan\test_31686\Plan\07\test123\ to save the file.
The filename should be contrib_per_payroll_check_ & Tag --> for example "contrib_per_payroll_check_170405.

Could you please check what is wrong in my code?

Private Sub Workbook_Open()


Dim Pfad, Tag

With ActiveDocument
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = "G:\Shareplan\test_31686\Plan\07\"
        If .Show <> -1 Then MsgBox "No folder selected! Exiting sub...": Exit Sub
        mydir = .SelectedItems(1)
    End With
    Pfad = mydir & "\"
    Tag = Format("yymmdd")
    Application.DisplayAlerts = False
    .SaveAs Filename: .Name = contrib_per_payroll_check_ & Tag
    Application.DisplayAlerts = True
     
    .Close
End With



End Sub

Kind regards,

Thorsten

[Special-K]

You need to explain what's happening.
"The code have an error"
So what error message is being displayed (if any)?
Or does it just not seem to do anything?

[torti111]

Hi,
I get the following error message "Can't assign to read-only property"

Kind regards,
Thorsten

[Special-K]

This is connected to Sun Systems Reporting Vision isn't it?
I don't know anything about that.
Maybe someone will reply who knows what this error means.

[bakerman2]

Try this.

Private Sub Workbook_Open()

Dim mydir As String, Pfad As String, Tag As String

With ActiveDocument
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = "G:\Shareplan\test_31686\Plan\07\"
        If .Show <> -1 Then MsgBox "No folder selected! Exiting sub...": Exit Sub
        mydir = .SelectedItems(1)
    End With
    Pfad = mydir & "\"
    Tag = Format("yymmdd")
    Application.DisplayAlerts = False
    .SaveAs Pfad & "contrib_per_payroll_check_" & Tag
    Application.DisplayAlerts = True

    'Application.GetSaveAsFilename
        
    .Close
End With

End Sub

[torti111]

Thank you for your help.
But if I use your code, I am not in the correct path: G:\Shareplan\test_31686\Plan\07\ to choose the subfolder G:\Shareplan\test_31686\Plan\07\Q1.....
If I clicked to the correct subfolder and click ok, it should save the file with Name "contrib_per_payroll_check_170405" automatically.
Kind regards,
Thorsten

[bakerman2]

If the folder exists this line

.InitialFileName = "G:\Shareplan\test_31686\Plan\07\"

will ALWAYS BE THE STARTING directory of the dialog box and present you all the subfolders of that directory

[torti111]

thanks a lot, again