Programma werkt niet !!

[qgerard]

Onderstaande macro werkt helaas niet; wie kan mij vertellen wat de oorzaak zou kunnen zijn.

Dit heb ik geplaatst in ThisWorkbook

Private Sub Workbook_Open()
     Application.ontime TimeValue("14:14:00"), "producie"
End Sub

Dit heb ik geplaatst in een Module

Sub productie()

    Application.Run "Excessenberekening3.xlsm!Importeren"
    Application.Run "Excessenberekening3.xlsm!Samenvoegen"
    Application.Run "Excessenberekening3.xlsm!Sortering"
    Application.Run "Excessenberekening3.xlsm!Datum"
    'Application.Run "Excessenberekening3.xlsm!verzenden per mail"
    Application.Run "Excessenberekening3.xlsm!opschonen"
    
End Sub

Elke dag wil ik deze macro opstarten op een bepaalde tijd.


Wie kan mij hiermee helpen.

 

[Elsendoorn2134]

QGerard,

Probeer de Application.ontime TimeValue("14:14:00"), "producie" eens goed te schrijven.
Volgens mij klopt de naam van de sub niet helemaal.

Veel Succes.

 

[snb]

Zet svp VBA-code tussen codetags !!

 

[qgerard]

Vervolgvraag

SNB

Zet svp VBA-code tussen codetags = watbedoel je precies hiermee.
Wat moet ik toevoegen.

Ik ben al een heel stuk verder maar help mij a.u.b. met een korte uitleg.

 

[dnties]

Wat snb bedoelt is dat je je VBA-code bij het plaatsen van postings/vragen hier op het forum tussen

[/noparse] en [noparse]

tags moet zetten.
Het is dan (veel) leesbaarder, makkelijker te kopiëren en plakken én duidelijk gescheiden van de vraag die je er over hebt.

Dus jouw code, even in code tags gezet, ziet er dan zo uit zoals moderator huijb al voor je gedaan heeft in je startposting:

Private Sub Workbook_Open()
     Application.ontime TimeValue("14:14:00"), "producie"
End Sub

en

Sub productie()

    Application.Run "Excessenberekening3.xlsm!Importeren"
    Application.Run "Excessenberekening3.xlsm!Samenvoegen"
    Application.Run "Excessenberekening3.xlsm!Sortering"
    Application.Run "Excessenberekening3.xlsm!Datum"
    'Application.Run "Excessenberekening3.xlsm!verzenden per mail"
    Application.Run "Excessenberekening3.xlsm!opschonen"
    
End Sub

Tijs.

 

[qgerard]

Elsendoorn,

Niet te geloven, zit het in een klein hoekje.
Dank voor je opmerking - maar werkt nog niet !!

 

[edmoor]

Vertel ook eens WAT er niet werkt.

 

[qgerard]

EdMoor,

Zowel in Thisworkbook als in de module heb ik beide hierbovengenoemde codes geplaatst.
Tijd 5 minuten later ingesteld ..... na 5 minuten gebeurt er niets.
Geen foutmelding en macro's voeren niets uit.

Geen idee wat er aan de hand is.

Dit is pas het begin voor mij maar wil er ervaring mee opdoen.
Dus eerst maar eens kijken waar het mis gaat en of hij op tijd wil starten
Volgende stap moet hij op bepaalde dagen opstarten.

Maar hopelijk weet jij waar het hem in zit.


alsvast bedankt voor je reactie, mvrgr qgerard

 

[edmoor]

Heb je na het wijzigen van die tijd wel de routine even opnieuw uitgevoerd?
Bij mij werkt dezelfde contructie prima dus waar het dan bij jou niet goed gaat is moeilijk te zeggen.
Met welke versie van Office werk je?
Plaats ook eens de beide voorbeeld documentjes.

 

[qgerard]

Edmoor, goedemiddag,

Excel versie 2010 daar werk ik nu mee,
Routine opnieuw uitvoeren - kun je uitleggen hoe dit werkt?
Bijgaand heb ik een kleine versie van mijn programma meegezonden.
De gehele programma is te groot om te versturen (plm. 16 mb)

 

[Spiesse]

in je private sub workbook_open staat een schrijffout...

verander producie naar productie en probeer de macro nog eens opnieuw te doen draaien...

 

[edmoor]

Routine opnieuw uitvoeren - kun je uitleggen hoe dit werkt?

Als je die tijd hebt aangepast moet je op F5 drukken om die routine opnieuw te laden.
Of het document opslaan en weer openen. Daarna uiteraard open laten staan tot de ingegeven tijd aanbreekt.
Ik zal vanavond eens naar je bijlage kijken.

 

[edmoor]

Ik heb je document getest en de Ontime routine voert prima op de ingestelde tijd de productie routine uit.

 

[qgerard]

EdMoor

Fantastisch.....ben er heel blij mee.
Fijn dat we op deze wijze problemen kunnen bespreken en oplossen.
Mijn dank is groot voor je tips en prima hulp.

Ik ga aan de slag met een volgende uitdaging.....schitterend om met VBA te puzzelen en mooie dingen kunnen opleveren.

Misschien tot later !!

Mvrgr. Qgerard