[ RESUELTO ] Establecer fecha para ejecutar macro

[TheBatman96]

Buenas tardes compañeros

Escribo con el fin de aclararme una gran duda, he leído el libro de Mauricio, he leído muchos temas del foro, pero sigo sin respuesta.

Estoy haciendo una prueba, y requiero que el último día del mes ( Ej: 28 de Febrero ) se ejecute la macro, la macro la utilizo para recopilar la información de las respuestas de la prueba que las personas han hecho ( Es algo que aún estoy haciendo, pero sé que el tema ya está en el foro )

Agradezco si pueden aclararme la duda, ya que no he visto éste tema en el foro, en caso tal de que esté, me disculpo.

Gracias

[PepeOooSevilla]

Hola.

Te damos la bienvenida al Foro de OpenOffice/LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Así, a bote pronto, se me ocurre que podrías asignar al suceso "Iniciar aplicación" en "Herramientas > Personalizar... > Sucesos" una macro que compruebe la fecha del sistema y si es 28 de febrero (u otra fecha) que llame a otra macro que será la encargada de recopilar la información que necesites.

Un ejemplo:

Código: Seleccionar todo

Sub Hola()
	MsgBox "Hola, ¿qué tal?", 64, "¡HOLA!"
	If Format(Now(), "DD/MM/YYYY")="30/01/2019" Then
		MsgBox "Hoy es 30 de enero de 2019.", 64, "¡HOLA!"
	End If
End Sub

Si asignas esta macro al suceso que he citado, sales de LibreOffice y vuelves a iniciarlo, te saludará con "Hola, ¿qué tal?" y si hoy es 30/01/2019 (que lo es) te saltará el mensaje que puedes ver en el código. Haz pruebas ...

Saludos cordiales.

[TheBatman96]

Hola.

Te damos la bienvenida al Foro de OpenOffice/LibreOffice y, por favor, no dejes de leer la Guía de supervivencia.

Así, a bote pronto, se me ocurre que podrías asignar al suceso "Iniciar aplicación" en "Herramientas > Personalizar... > Sucesos" una macro que compruebe la fecha del sistema y si es 28 de febrero (u otra fecha) que llame a otra macro que será la encargada de recopilar la información que necesites.

Un ejemplo:

Código: Seleccionar todo

Sub Hola()
	MsgBox "Hola, ¿qué tal?", 64, "¡HOLA!"
	If Format(Now(), "DD/MM/YYYY")="30/01/2019" Then
		MsgBox "Hoy es 30 de enero de 2019.", 64, "¡HOLA!"
	End If
End Sub

Si asignas esta macro al suceso que he citado, sales de LibreOffice y vuelves a iniciarlo, te saludará con "Hola, ¿qué tal?" y si hoy es 30/01/2019 (que lo es) te saltará el mensaje que puedes ver en el código. Haz pruebas ...

Saludos cordiales.

Muchas gracias Pepe tanto por la bienvenida como por el código, hasta el momento ha funcionado, en mi trabajo no puedo cambiar la fecha del sistema por motivos de administrador, sin embargo, espero ensayarlo ésta noche con algunas modificaciones y estaré comentando el resultado. Cuándo quede listo, estaré adjuntando el archivo y pondré el tema como [RESUELTO]

[TheBatman96]

En efecto Pepe, me ha servido de gran ayuda tu respuesta. No adjunto el archivo, porque con tu código está súper explicado, y es sencillo de hacer. Junto al libro de Mauricio y tu respuesta, puedo decir que he culminado casi a su totalidad el proyecto.

! Muchas gracias !