opslaan met naam en datum van vandaag

[davylenders123]

Ik heb zelf een macro gemaakt en deze doet alles wat hij moet doen.
Hij slaat het bestand op onder de naam "uren interim08-01-2011.xls"

Dit zou ik graag veranderen door uren interim en dan gevolgd door de datum van vandaag. dus vandaag zou dat worden: uren interim 08-01-2011

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("E11").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ChDir "T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen"
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim08-01-2011.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Wat moet ik dan aan de code aanpassen ?

 

[popipipo]

http://www.helpmij.nl/forum/showthread.php/594355-bestaan-opslaan-met-als-naam-de-datum-van-vandaag

Wat is nu het verschil met deze vraag?

 

[davylenders123]

http://www.helpmij.nl/forum/showthread.php/594355-bestaan-opslaan-met-als-naam-de-datum-van-vandaag

Wat is nu het verschil met deze vraag?

Bij deze slaat hij op als naam alleen de datum van vandaag dus vandaag slaat hij op als 08-01-2011

Maar ik zou graag als naam hebben "uren interim 08-01-2011"

 

[huijb]

Het is onnodig om je vraag twee keer te plaatsen. Deze gaat op slot.