Excelbestand automatisch opslaan bij afsluiten

Stel hier je vraag over een Excel probleem
Plaats reactie
Nico1965
Berichten: 28
Lid geworden op: 05 jan 2020 23:02

Excelbestand automatisch opslaan bij afsluiten

Bericht door Nico1965 » 21 sep 2021 23:54

Hallo Excel Experts,
Het onderwerp van mijn vraag is maar een klein onderdeel van het probleem.

Het bestaat eigenlijk uit 2 kleine probleempjes:
1: automatisch opslaan met een wisselende bestandsnaam die bestaat uit een samenvoeging van 2 cellen.
2: opslaan in een bepaalde map, waarvan de naam door de gebruiker bepaald kan worden.

Het volgende heb ik al gevonden over hoe een map te maken:
------
Sub Maak_map()
Dim fs As Object 'Eerst kijken of de schijf en map bestaat
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists("C:\" & Range("A1")) Then
'Maak een map
MkDir "C:\" & Range("A1")
End If
End Sub
-----

Het probleem van bovenstaande is is dat het uitgaat van de C:\ schijf en wat er in cel A1 staat van het actieve werkblad.
Dus ik wil dat er een keuze is van de opslaglocatie (dus niet afhankelijk van alleen de C:\ schijf) en dat de gewenste mapnaam van werkblad: "Set up" cel: "J2" gebruikt wordt.
En als krent in de pap, dat bij het afsluiten van deze werkmap het bestand automatisch zal worden opgeslagen, eventueel voorafgegaan met een msgbox met de vraag of het bestand opgeslagen moet worden.
Ik weet dat ik heel wat vraag en zal jullie hiervoor dan ook zeer dankbaar zijn.
Bijlagen
bestandsnaam_.xlsm
(11.05 KiB) 24 keer gedownload

jkpieterse
Site Admin
Berichten: 1181
Lid geworden op: 30 jan 2017 14:32

Re: Excelbestand automatisch opslaan bij afsluiten

Bericht door jkpieterse » 22 sep 2021 11:38

Zie bijlage.
Bijlagen
bestandsnaam_.xlsm
(20.94 KiB) 24 keer gedownload
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Nico1965
Berichten: 28
Lid geworden op: 05 jan 2020 23:02

Re: Excelbestand automatisch opslaan bij afsluiten

Bericht door Nico1965 » 22 sep 2021 22:03

Hallo Jkpieterse,
Dank je wel voor het mee denken.
Uw versie werkt uiteraard maar na uitwerken in mijn versie, krijg ik een foutmelding.
In mijn versie is er een tabblad: "Set up" waarin de gebruiker op moet geven wat de mapnaam moet zijn.
Ik hoop dat je hier ook even naar wil kijken.
Bijlagen
bestandsnaam_2.xlsm
(24.67 KiB) 25 keer gedownload

jkpieterse
Site Admin
Berichten: 1181
Lid geworden op: 30 jan 2017 14:32

Re: Excelbestand automatisch opslaan bij afsluiten

Bericht door jkpieterse » 23 sep 2021 07:43

OK, doen we het op deze manier...
Bijlagen
bestandsnaam_2.xlsm
(23.22 KiB) 21 keer gedownload
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Nico1965
Berichten: 28
Lid geworden op: 05 jan 2020 23:02

Re: Excelbestand automatisch opslaan bij afsluiten

Bericht door Nico1965 » 30 sep 2021 08:15

Dank je wel maar weer.
Zonder dit forum en zonder jullie antwoorden modder ik maar aan.
Je laatste oplossing werkt prima.
Dit heb ik na wat kleine aanpassingen gebruikt in het oorspronkelijke bestand.
Toppie!

jkpieterse
Site Admin
Berichten: 1181
Lid geworden op: 30 jan 2017 14:32

Re: Excelbestand automatisch opslaan bij afsluiten

Bericht door jkpieterse » 30 sep 2021 09:10

Mooi zo!
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Plaats reactie