Macro starten op een bepaalde tijd

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

In het exel-bestand "Verbruik" wordt via de macro, "Meterstand_uitlezen",module1, mijn meterstanden uitgelezen en opgeslagen

Nu wil ik dat dat iedere week op het zelfde tijdstip automatisch gaat.

Iedere Zaterdag om 23:00 uur

Onderstaande code heb ik gevonden (van HSV) maar hij doet het niet.

Wil u mij hiermede helpen?
Vriendelijke groet, Jaap




CODE]
Code: 
Private Sub Workbook_Open()
 ThisWorkbook.Verbruik
End Sub


Sub Verbruik()
If Weekday(Date, vbMonday) = 6 Then
     Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
End If
 Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
End Sub
 
Dat zal het best wel doen, maar alleen zolang dat document in Excel open staat.
Wat je wilt kan via de Windows Task Scheduler.
 
Laatst bewerkt:
Hier wordt de macro Module1.Meterstand_uitlezen aangeroepen, dit kan gewoon niet,als je een macro deze naam geeft krijg je een foutmelding.
Code: 
Application.OnTime TimeValue("23:00:00"), "Module1.Meterstand_uitlezen"
 
Edmoor,

Ja het document staat open maar doet het niet op een geplande tijd
Ik heb met rechts geklikt op het betr. blad en toen Programma code gekozen
en daar de code geplaatst.
Klopt dit soms niet?

Via Task Scheduler kan het ook maar hoe dat gaat weet ik ook niet. (nog nooit gedaan)

gast0660,

Ook als ik module1 weg laat , gebeurd er niets.

Jaap
 
Werkt hier prima al is het nog geen 23:00 uur.

Code: 
Private Sub Workbook_Open()
 ThisWorkbook.Verbruik
End Sub
Sub Verbruik()
 Application.OnTime TimeValue("19:59:00"), "Module1.VenA"
 Application.OnTime TimeValue("19:59:05"), "Module2.VenA"
End Sub

Code: 
Sub VenA()
  MsgBox "vanuit Module1"
End Sub

Code: 
Sub VenA()
  MsgBox "vanuit Module2"
End Sub
 
VenA,

De code is bepaald goed maar ik doe dus iets anders fout.
Daarom heb ik maar een proefbestandje aangemaakt. ( die het ook niet doet)

Wat doe ik fout??
Jaap
 

Bijlagen

  • Testen.xlsm
    19,1 KB · Weergaven: 60
Doet het hier gewoon. Je moet even de tijd aanpassen het bestand opslaan en weer openen. (of even handmatig de code in Thisworkbook uitvoeren) Ik zou ook even de code uit de module van Blad1 weghalen (hoort daar niet)
 
VenA,

Helemaal goed!!
Dat was het.
Je moet de code eerst even uitvoeren zodat bij declaraties "Open" komt te staan.
Dank je wel.
Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan