Ejecucion automatica de un procedimiento

Public Sub Grabacion_Diaria()
Application.OnTime TimeValue("22:00:00"),"GuardarComo"
End Sub

Public Sub GuardarComo()
dia_actual = Format(Date,"d.mmmm.yyyy")
fichero = "c:\"+dia_actual+".xls"
Application.ActiveWorkok.ActiveSheet.SaveAs Filename:=fichero
End Sub

El problema lo tengo es que no se donde ubicar ese codigo (dentro de una
hoja, ThisWorkBook, un modulo... etc etc) para que se ejecute cuando
llegue
la hora indicada.
Por lo que he leido el evento OnTime no está asociado a ningun objeto, se
accede a ellos medianto métodos del objeto Application, pero no acabo de
pillarle el puntillo y no se muy bien donde ubicar el codigo o como
enlazarlo.

Gracias,
Salu2!.



"los videojuegos no tienen ninguna influencia sobre los niños.
Quiero decir, si el Pac-Man hubiese influenciado a nuestra generación,
estaríamos todos corriendo en salas oscuras, masticando píldoras
mágicas y escuchando músicas electrónicas repetitivas".
Kristian Wilson, Nintendo Inc., 1989

Hola de nuevo,

Aqui te pongo el codigo ligeramente modificado para que no se dispare

procedimiento principal al abrir el archivo.

Saludos,
KL

'--Modulo ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerGrabacion
End Sub

Private Sub Workbook_Open()
Application.OnTime TimeValue(Hora), "IniciarGrabacion"
End Sub
'--Modulo ThisWorkbook

'--Modulo1
Public Const Hora = "22:00:00"

Sub IniciarGrabacion()
'Hora > If Saltar = False Then GuardarComo
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion"
Saltar = False
End Sub

Sub DetenerGrabacion()
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion", schedule:=False
End Sub

Public Sub GuardarComo()
dia_actual = Format(Date, "d.mmmm.yyyy")
fichero = "c:\" + dia_actual + ".xls"
Application.ActiveWorkok.ActiveSheet.SaveAs Filename:=fichero
End Sub
'--Modulo1

"KL" Escribió el día mar 26 abr
2005 11:52:53a:

Hola de nuevo,

Aqui te pongo el codigo ligeramente modificado para que no se dispare

el

procedimiento principal al abrir el archivo.

Saludos,
KL

'--Modulo ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerGrabacion
End Sub

Private Sub Workbook_Open()
Application.OnTime TimeValue(Hora), "IniciarGrabacion"
End Sub
'--Modulo ThisWorkbook

'--Modulo1
Public Const Hora = "22:00:00"

Sub IniciarGrabacion()
'Hora >> If Saltar = False Then GuardarComo
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion"
Saltar = False
End Sub

Sub DetenerGrabacion()
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion", schedule:=False
End Sub

Public Sub GuardarComo()
dia_actual = Format(Date, "d.mmmm.yyyy")
fichero = "c:\" + dia_actual + ".xls"
Application.ActiveWorkok.ActiveSheet.SaveAs Filename:=fichero
End Sub
'--Modulo1

Buenas,
Ante todo gracias por la pronta respuesta, que me esta siendo de gran
ayuda.
Al copair tu codigo a mi fichero de excel, recibo el siguiente mensaje de
error:

Se ha producido el error '1004' en tiempo de ejecución:
Error en el método 'OnTime' de objeto '_Application' situándose el fallo
sobre el procedimiento DetenerGrabacion().

No sé donde puede estar el error porque el código parece estar
correcto... seguro que algo se me está escapando :-(

Gracias!
Salu2.


"los videojuegos no tienen ninguna influencia sobre los niños.
Quiero decir, si el Pac-Man hubiese influenciado a nuestra generación,
estaríamos todos corriendo en salas oscuras, masticando píldoras
mágicas y escuchando músicas electrónicas repetitivas".
Kristian Wilson, Nintendo Inc., 1989

Hola Rantamplan,

Creo que el error se tiene que producir solo una vez al copiar,
guardar e intentar cerrar el fichero. Esto se debe a que el
procedimiento "DetenerGrabacion" intenta parar un OnTime que no se ha
lanzado. La proxima vez que abras el fichero se lanzara primero
"IniciarGrabacion" y luego al cerrar "DetenerGrabacion" correctamente.

Comenta si esto no resuelve tu duda.

Saludos,
KL

"Rantamplan" wrote in message
news:

"KL" Escribió el día mar 26 abr
2005 11:52:53a:

Hola de nuevo,

Aqui te pongo el codigo ligeramente modificado para que no se
dispare

el

procedimiento principal al abrir el archivo.

Saludos,
KL

'--Modulo ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerGrabacion
End Sub

Private Sub Workbook_Open()
Application.OnTime TimeValue(Hora), "IniciarGrabacion"
End Sub
'--Modulo ThisWorkbook

'--Modulo1
Public Const Hora = "22:00:00"

Sub IniciarGrabacion()
'Hora >>> If Saltar = False Then GuardarComo
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion"
Saltar = False
End Sub

Sub DetenerGrabacion()
Application.OnTime TimeValue(Hora), _
"IniciarGrabacion", schedule:=False
End Sub

Public Sub GuardarComo()
dia_actual = Format(Date, "d.mmmm.yyyy")
fichero = "c:\" + dia_actual + ".xls"
Application.ActiveWorkok.ActiveSheet.SaveAs Filename:=fichero
End Sub
'--Modulo1

Buenas,
Ante todo gracias por la pronta respuesta, que me esta siendo de gran
ayuda.
Al copair tu codigo a mi fichero de excel, recibo el siguiente
mensaje de error:

Se ha producido el error '1004' en tiempo de ejecución:
Error en el método 'OnTime' de objeto '_Application' situándose el
fallo sobre el procedimiento DetenerGrabacion().

No sé donde puede estar el error porque el código parece estar
correcto... seguro que algo se me está escapando :-(

Gracias!
Salu2.


"los videojuegos no tienen ninguna influencia sobre los niños.
Quiero decir, si el Pac-Man hubiese influenciado a nuestra
generación, estaríamos todos corriendo en salas oscuras, masticando
píldoras mágicas y escuchando músicas electrónicas repetitivas".
Kristian Wilson, Nintendo Inc., 1989