Bestand opslaan Cell inhoud met datum

[Freddy_Mulder]

Goedemiddag

 

Ik heb een probleem met vba  ik wil een project opslaan met het projectnaam wat in het voorblad in d16 staat met de datum erachter

Dit is wat ik momenteel heb maar de datum lukt mij niet.

Kan iemand mij hiermee helpen.

Alvast super thx Freddy

 

Sub Excel_Bestand()

' Project opslaan als Excel bestand
Dim strFileName As Variant
Dim strPath As String
  strFileName = Sheets("Voorblad").Range("D16").Value
  strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
                                              FileFilter:="Excel 2007 Files (*.xlsm), *.xslm", _
                                              FilterIndex:=1, _
                                              Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
  If strFileName = False Then
    MsgBox "... je hebt niet opgeslagen! "
  Else
    ActiveWorkbook.SaveAs Filename:=strFileName
    MsgBox "Gelukt! Opgeslagen als: " & strFileName
  End If
 
End Sub

 

12 december 2016 aangepast door Freddy_Mulder

[Broerke]

Moet de datum uit de cel D16 komen of voegt u gewoon  &Format(Now, "yyyymmddhhmmss") na & strFileName? Als u enkel de datum wil kan u die hhmmss weglaten want dit staat voor uur, minuten en seconden.

Verder heb ik niet gecontroleerd of uw macro werkt. Ik ben de laatste jaren niet veel bezig in Excel.

 

12 december 2016 aangepast door Broerke