Visual Basic - Macro que permita que se ejecute otra con el archivo cerrado

Life is soft - evento anual de software empresarial

Macro que permita que se ejecute otra con el archivo cerrado

Publicado por Aida Menendez Rodriguez (1 intervención) el 08/10/2018 00:56:51

Buenas,
Tengo una macro para copiar un archivo cada cierto tiempo, para ello tengo que iniciar un temporizador, este archivo lo usamos varias personas y no siempre se activa el funcionamiento.
¿Como puedo conseguir que el temporizador siga funcionando aunque cierre el archivo?
Os adjunto la macro.
Muchas gracias anticipadas

Dim Tiempo As Variant

Dim Ejecutando As Boolean

Sub programarMacro()

Tiempo = Now + TimeValue("02:00:00")

Application.OnTime Tiempo, "Copia", , True

End Sub

Sub Copia()

ThisWorkbook.SaveCopyAs "C:Ruta del archivo\" & Day(Date) & Month(Date) & Year(Date) & Hour(Time) & Minute(Time) & Second(Time) & ".xlsm"

Call programarMacro

End Sub

Sub IniciarReloj()

Ejecutando = True

Call programarMacro

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.259

Macro que permita que se ejecute otra con el archivo cerrado

Publicado por Antoni Masana (565 intervenciones) el 08/10/2018 07:29:10

Primero la fecha del archivo que guardas es mejor en formato Año + Mes + Dia, de todas formas así es más simple

Option Explicit

Dim Tiempo As Variant

Dim Ejecutando As Boolean

Sub programarMacro()

    Tiempo = Now + TimeValue("00:00:05")

    'Application.OnTime Tiempo, "Copia", , True

End Sub

Sub Copia()

    ThisWorkbook.SaveCopyAs "C:\TMP\popo." & Format(Date, "yyyymmdd") & Format(Time, "hhmmss") & ".xlsm"

    Call programarMacro

End Sub

Sub IniciarReloj()

    Ejecutando = True

    Call programarMacro

End Sub

Si el fichero XLSM esta cerrado no se puede ejecutar la macro otra cosa es asegurárte de que se ejecuta la macro cuando se abra el Libro.

Usa la el procedimiento Open el ThisWorkBook