opslaan met naam en datum en tijd

[Ropw]

Private Sub CommandButton3_Click()
    With ActiveWorkbook
        .SaveAs "C:\Users\gijs" & "Containers" & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xlsm", 52
    End With
End Sub

Goedenavond,
ik probeer bovenstaande code ,met een knop werkend te krijgen, maar jammer genoeg werkt het nog niet.
Probeer daarmee, zowel op mijn pc als iemand anders zijn pc het bestand op een gemeenschappelijke locatie op te slaan. En c:\users lijkt mij algemeen bij ieder toegankelijk. wat is de correcte code?

 

[roeljongman]

krijg je een foutmelding of vind je het bestand niet terug?

ik denk dat 1 teken het verschil kan maken en wel de backslash tussen gijs en Containers
of moet het bestand "gijsContainter270517_000220.xlsm" heten

Private Sub CommandButton3_Click()
    With ActiveWorkbook
        .SaveAs "C:\Users\gijs\Containers" & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xlsm", 52
    End With
End Sub

 

[Ropw]

met gijs blijft de code hangen in het geel (met of zonder gijs) in de naamgeving ook de "" aangepast zonder succes

 

[Ropw]

opgeslagen naar de root van D: en dan werkt het wel. ik experimenteer nog wel verder. toch bedankt

 

[edmoor]

Probeer eens of dit doet wat je wilt:

Private Sub CommandButton3_Click()
    With ActiveWorkbook
        .SaveAs Environ("userprofile") & "\Containers" & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xlsm", 52
    End With
End Sub

 

[Ropw]

joepie edmoor, dat werkt bedankt en welterusten