default naam indien opslaan als gekozen is

[Bjorkie]

Hoi,
ik heb al (mits jullie hulp) bekomen dat mijn file, bij het "opslaan als", je de naam moet ingeven.
nu zou ik graag volgende willen bereiken.
Ik heb een sheet waar ik enkele 'userform' gevens plaats (Project_name; Customer_name; Created_by)
nu wil ik bij het opslaan, dat ik een default naam bekom zoals "YearMonthDay-Customer_name-Project_Name"
ik moet deze manueel kunnen aanpassen.
ik geef og even mee wat ik al heb tot nog toe:

  'Action makes sure the user saves as XLSM file type.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim FileNameVal As String
    If SaveAsUI Then
        FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
        Cancel = True
        If FileNameVal = "False" Then 'User pressed cancel
            Exit Sub
        End If

        Application.EnableEvents = False
        ThisWorkbook.SaveAs FileName:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat
        Application.EnableEvents = True
    End If
End Sub

 

[edmoor]

Kijk eens naar dit voorbeeldje:

Sub VraagBestand()
    Bestand = Application.GetSaveAsFilename("C:\Diversen\Bestandsnaam.xlsm", "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If Not TypeName(Bestand) = "Boolean" Then MsgBox Bestand
End Sub

 

[Bjorkie]

hmmm... dit gaat mijn petje te boven spijtig genoeg.
hiervoor zal ik in het weekend wat tijd moeten maken om dit te bekijken.
alvast bedankt voor de hulp :thumb:

 

[edmoor]

Het enige verschil met je eigen code is dat ik de eerste parameter van Application.GetSaveAsFilename gevuld heb.