Domanda su application.ontime

[blunotte13]

Buongiorno, o meglio buonanotte vista l'ora, ho imparato a maneggiare application.ontime e la macro che ho creato funziona

Codice: Seleziona tutto

Application.OnTime TimeValue("61:00:00"), "giorno"

alle 16:00 viene lanciata "giorno", la mia domanda è: se un giorno non sono al lavoro e quindi alle ore 16:00 il file è chiuso, la macro ovviamente non parte, c'è un comando da aggiungere per fare in modo che se la macro non è stata eseguita all'orario stabilito venga lanciata alla prossima apertura del file ?

Grazie per l'aiuto.

[Anthony47]

Secondo me se alle 16 il file e' chiuso esso viene aperto e la Sub giorno viene eseguita; certo, se invece il Pc e' spento...
Facciamo così:
-una una cella di appoggio e fai in modo che la Sub giorno ci scriva dentro data /ora di esecuzione; tipo
Sheets("NomeFoglioUsato").Range("CellaDiAppoggio").Value = Now
-poi aggiungi una macro di Workbook_Open in cui controlli se la macro e' stata eseguita dopo le 15:59 di ieri, se No allora la esegui. Tipo

Codice: Seleziona tutto

Private Sub Workbook_Open()
Dim ExpTime As Date
ExpTime = Int(Now) - 1 + TimeSerial(15, 59, 0)
If Sheets("NomeFoglioUsato").Range("CellaDiAppoggio").Value < ExpTime Then
    Call Giorno
End If
End Sub

La Private Sub Workbook_Open() e' da inserire nel modulo ThisWorkbook / Questa_cartella_di_lavoro

Ciao

[blunotte13]

Molto interessante ciò che hai scritto sull'apertura del file chiuso, non lo avrei mai immaginato, grazie dell'aiuto per il codice, buona giornata.