Run a macro from another workbook with application.ontime

[Justice98]

Hello,

I have three workbooks, which have to execute the following code at a certain time.

WORKBOOK1 Code

Private Sub Workbook_Open()
    MsgBox "The sheets are printed."
    Application.OnTime TimeValue("12:00:00"), "'Workbook1.xlsm'!PrintWB1"
    Application.OnTime TimeValue("16:00:00"), "'Workbook1.xlsm'!PrintWB1"
End Sub

WORKBOOK2 Code

Private Sub Workbook_Open()
    MsgBox "The sheets are printed."
    Application.OnTime TimeValue("12:00:00"), "'Workbook2.xlsm'!PrintWB2"
    Application.OnTime TimeValue("16:00:00"), "'Workbook2.xlsm'!PrintWB2"
End Sub

WORKBOOK3 Code

Private Sub Workbook_Open()
    MsgBox "The sheets are printed."
    Application.OnTime TimeValue("12:00:00"), "'Workbook3.xlsm'!PrintWB3"
    Application.OnTime TimeValue("16:00:00"), "'Workbook3.xlsm'!PrintWB3"
End Sub

My problem is that the workbook that is activated is the only one which get printed. The others give the folowwing error: "The macro may not be available in this workbook or all macros may be disabled."
But the macros are enabled in every workbook and they work if I just execute the macro when the workbook is activated. I have tried to add the Application.Run etc. but still can't fix the problem.

 

[sijpie]

The problem is that VBA is waiting, first for 12:00 to come, then for 16:00 to come. In the meantime it can't do anything else, including running other macros.

It will be better to have one macro in some workbook, that runs the printing macro's for each workbook.

You will still have the problem that you ca't access Excel in the waiting time.

You could overcome that by setting up a agent in Windows that runs on the specified times, and opens the workbook that has the macro. This workbook should run the macro on opening and close itself once done.