how to run multiple macros with one button

[Jeneroy]

Allen,

Kan iemand mij helpen.

Ik heb een macro gemaakt genaamd “Macro weekrapportages”.
De bedoeling is dat deze macro elke maandag automatisch gedraaid wordt.
De macro gaat op volgorde drie macrofiles openen en uitvoeren.

Ik loop tegen deze dingen aan:
1- “Macro weekrapportages” automatisch starten elke maandag om 06:00 werkt maar voor maandag moet ik altijd de file sluiten en dan openen anders werkt het niet? Is daar een oplossing voor?
2- Op het moment dat de “Macro weekrapportages” vastloopt bij bijvoorbeeld de eerste macro (MacroWeekrapport1) dan gaat ie niet verder.
Als de “Macro weekrapportages” bijvoorbeeld bij de eerste macro (MacroWeekrapport1) vastloopt dan wil ik dat ik een bericht per mail ontvang dat het niet gelukt is bij de eerste macro, maar hij moet wel verder met de tweede macro.

Voor meer info zie bijlage
Kan iemand mij helpen

Mijn dank is groot

 

[jkpieterse]

Vervang je code eens door:

Option Explicit
Sub Macroweekrapportages()
    Dim Counter As Long
    For Counter = 1 To 3
        If MacroWeekrapport(Counter) Then
            'OK, ga verder met volgende
        Else
            'Stuur hier een mailtje, zie http://rondebruin.nl voor code
        End If
    Next
End Sub
Function MacroWeekrapport(Number As Long) As Boolean
    Err.Clear
    On Error Resume Next
    Workbooks.Open Filename:="U:\Desktop\MacroWeekrapport" & Number & ".xlsm."
    Application.Run "'MacroWeekrapport" & Number & ".xlsm'!StartMWR" & Number
    Windows("MacroWeekrapport" & Number & ".xlsm").Activate
    ActiveWindow.Close
    MacroWeekrapport = (Err.Number = 0)
End Function

 

[Jeneroy]

Bedankt voor de snelle reactie.
Het werkt maar hij loopt vast op het moment dat de macro een bestand niet kan vinden.

nog een vraagje: op dit moment heb ik alleen drie macro's voor weekrapporten, maar later komen nog veel meer en deze macro's krijgen ook andere namen dan "MacroweekrapportX". heb je misschien hier een idee voor het aanpassen van jouw code?

“Macro weekrapportages” automatisch starten elke maandag om 06:00 werkt maar voor maandag moet ik altijd de file sluiten en dan openen anders werkt het niet? Is daar een oplossing voor?

Alvast bedankt