bestaand opslaan met als naam datum en uur

[davylenders123]

Ik heb de volgende code al.

Private Sub CommandButton1_Click()

ActiveSheet.Protect Password:="1302", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ChDir "T:\Mag-Data\Mit pc\davy\uren magazijn"
    ActiveWorkbook.SaveAs Filename:= _
        [COLOR="darkred"]"T:\Mag-Data\Mit pc\davy\uren magazijn\Uren Magazijn " & Format(Date, "dd-mm-yyyy") & ".xls" _[/COLOR]        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Het rode deel slaat het bestand op met als naam uren magazijn gevolgd door datum vandaag.
vb "uren magazijn 29/04/2011"

Nu zou ik graag hebben dat hij dit als naam gebruikt "uren magazijn 29/04/2011 19:49 u"

Wat moet ik dan juist aanpassen aan de code ?

 

[OctaFish]

Iets als:

Uren Magazijn " & Format(Date, "dd-mm-yyyy") & " " & Format(Now(), "hh:mm") & " u")

Overigens geef je een nederlandse notatie op, en krijg je een Amerikaanse (maand + dag) terug. Hopelijk is dat ook wat je wilt...

 

[HSV]

Ik krijg het niet voor elkaar met de dubbele punt in een bestandsnaam OctaFish.
Misschien bij Davy ook niet, dus andere weg.

Uren Magazijn " & Format(Now, "dd-mm-yyyy hh" & "u " & "mm") & ".xls"

 

[davylenders123]

Harry

Inderdaad ik krijg het ook niet klaar met de code van OctaFish .

Met u code lukt het wel.

Alle 2 bedankt voor jullie hulp :thumb: