opslaan met vaste naam + datum en tijd in vba

[nobeleyes]

Momenteel heb ik volgende code gemaakt om een bestand met macro's op te slaan.
De naam van het document blijft steeds hetzelfde enkel datum en tijd moeten toegevoegd worden.
het loopt echter niet zoals het moet -> VBA loopt vast

Private Sub CommandButton6_Click()
With ActiveWorkbook
.SaveAs "C:\Users\Peter\Documents\Bijberoep\facturen\basis admin" & "administratie standaard document " &Format(Date, "ddmmyy") & "_" & Format(Time,
"hhmmss") "
End With

 

[Cobbe]

Test deze eens:

Private Sub CommandButton6_Click()
ChDir "C:\Users\Peter\Documents\Bijberoep\facturen\basis admin"
 With ActiveWorkbook
 .SaveAs Filename:="administratie standaard document_" & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
 End With
End Sub

 

[edmoor]

"Loopt vast" is niet een erg duidelijke probleemstelling. Maar probeer het eens zo:

Private Sub CommandButton6_Click()
    With ActiveWorkbook
        .SaveAs "C:\Users\Peter\Documents\Bijberoep\facturen\basis admin" & _
        "administratie standaard document " & _
        Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xlsm", 52
    End With
End Sub

 

[nobeleyes]

super voor het snelle antwoord...
En ja hoor... hij werkt!

Mercikes