Tijdsgebonden een werkblad openen en sluiten

[ximon]

Hallo,

Ik zou graag via een macro een werkblad openen, het werkblad moet na het ophalen van de gegevens ook weer sluiten.
Omdat er meerdere mensen gebruik maken van het bestand wil ik het meteen weer sluiten zodat ik niemand stoor.
Ik heb nu dit :

Sub OpenBook()
Workbooks.Open Filename:="C:\Users\Desktop\TEST\Q2"
End Sub
Sub CloseBook()
Workbooks.Close Filename:="C:\Users\Desktop\TEST\Q2"
End Sub

Nu moet ik dus ergens iets met tijd doen maar zou niet weten hoe.

BVD

 

[spaarie]

Zie link (Application.OnTime)
http://msdn.microsoft.com/en-us/library/office/ff196165(v=office.15).aspx

 

[ximon]

Hoi Spaarie

Bedankt voor de duw in de juiste richting.
Ik heb nu het volgende gedaan :
Sub OpenBook()
Workbooks.Open Filename:="C:\Users\rstarman\Desktop\TEST\Q2"
Application.OnTime Now + TimeValue("00:00:15"), "CloseBook"
End Sub
Sub CloseBook()
Workbooks.Close Filename:="C:\Users\rstarman\Desktop\TEST\Q2"
End Sub

Hij opent nu mijn werkboek, maar als het weer gesloten moet worden krijg ik een foutmelding, compileerfout.
Hij zet dan een pijltje bij Sub CloseBook() en maakt het woord Close in de 2de regel blauw.
Ik heb de Help functie gebruikt maar die maakt het alleen maar moeilijker.
Als ik de macro's los gebruik(met een knop) opent en sluit hij mijn werkboek zonder problemen.


Edit : Denk dat ik een andere benaming moet hebben voor Close.....
FF zoeken dan maar

 

[spaarie]

Graag gedaan, maar wil je de volgende keer de code tussen de code-tags plaatsen?

Probeer het zo eens:

Sub OpenBook()
    Workbooks.Open "C:\Users\rstarman\Desktop\TEST\Q2"
    Application.OnTime Now + TimeValue("00:00:15"), "CloseBook"
End Sub
Sub CloseBook()
    ActiveWorkbook.Close False
End Sub

 

[ximon]

Hoi Spaarie
Ik zal het er op letten dat ik de code op de juiste manier plaats.
Ik dacht dat dat vanzelf ging, maar blijkbaar heeft iemand anders het goed gezet in mijn begin post.
Ik heb dit geprobeerd maar dan sluit hij het blad waar ik in wil werken ipv Q2.
Ik ruik dat ik dicht bij de oplossing ben.

Edit: Ik heb het gevonden, moest de naam van het te sluiten bestand alleen aanpassen.

Sub CloseBook()
Workbooks("Q2").Close
End Sub

 

[spaarie]

Sub OpenBook()
    Workbooks.Open "C:\Users\rstarman\Desktop\TEST\Q2"
    Application.OnTime Now + TimeValue("00:00:15"), "CloseBook"
End Sub
Sub CloseBook()
   Workbooks("Q2").Close False
End Sub

 

[ximon]

Hartstikke bedankt Spaarie