Hoe bij facturen automatische bestandsnaam krijgen?

[AWils]

In Excel 2010 heb ik een factuursjabloon gemaakt.
Hoe kan ik automatisch de bestandsnaam krijgen waaronder dit moet worden opgeslagen?
Ik wens dat mijn factuur automatisch me de factuurnummer en klantnaam geeft wanneer ik het bestand wil bewaren, bijvoorbeeld "20120001 Huppeldepup". Ik weet dat het mogelijk is omdat bij mijn vorige werkgever zo was maar ik weet niet hoe ik dit moet krijgen.

Bedankt!
A.

 

[MauriceSmit]

In vba; achter het 'thisworkbook' object de volgende code plaatsen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Dim file_name As String
file_name = Format(Now(), "YYYYMMDD") & " - " & Sheet1.Range("klantnaam") & " - " & Sheet1.Range("factuurnummer")
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = file_name
    .Show
End With
End Sub