Mijn (hopelijk) laatste probleem waar ik niet uitkom, het opslaan van de werkmap doormiddel van een knop is me gelukt, alleen ervoor zorgen dat hij in dezelfde map opslaat is het probleem, ik gebruik de volgende code:
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs "C:\" & "Excel" & " " & Sheets("Blad1").Range("C2").Value & "." & Format(Now, "yyyy-mm-dd") & ".xls"
End Sub
Nu wordt er opgeslagen in C:\, het is de bedoeling dat hij opslaat in de map waaruit het bestand wordt geopend.
Ik heb alles al doorgespit, maar kan niet de oplossing vinden helaas, iemand die het wel weet?
Het enige wat ik kon vinden was "ThisWorkbook.Path" maar ik krijg hem niet werkend in de code.
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs "C:\" & "Excel" & " " & Sheets("Blad1").Range("C2").Value & "." & Format(Now, "yyyy-mm-dd") & ".xls"
End Sub
Nu wordt er opgeslagen in C:\, het is de bedoeling dat hij opslaat in de map waaruit het bestand wordt geopend.
Ik heb alles al doorgespit, maar kan niet de oplossing vinden helaas, iemand die het wel weet?
Het enige wat ik kon vinden was "ThisWorkbook.Path" maar ik krijg hem niet werkend in de code.
Laatst bewerkt:
