UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas noches
Me podrian ayudar, a una macro que al guardar, un archivo (Factura.xls), me hiciera una copia de seguridad como (Factura fecha.xlsb), y que a continuacion de su nombre Factura salga con Fecha del dia que se graba, con la dieccion G:\Copias de Seguridad\
Un saludo

2RESUELTO crear una copia de respaldo el 11/04/14, 08:10 pm

tan17


Código:
Private Sub UserForm_Terminate()
ActiveWorkbook.Save
Dim texto As String 'ActiveWorkbook.Save
texto = "G:\Copias de Seguridad\Factura2014"
texto = texto + Format(Now, "hh") + Format(Now, "mm") + Format(Now, "ss")
ActiveWorkbook.SaveCopyAs (texto)

End Sub

Prueba y me avisas...

3RESUELTO crear una copia de respaldo el 11/04/14, 09:58 pm

tan17


Código:

texto = texto + Format(Now, "DDDD") + Format(Now, "mmmm") + Format(Now, "YYYY") + Format(Now, "HH")

Factura2014ViernesAbril201418

Invitado


Invitado
Muchas gracias, tan17, por contestarme me guarda como tu dices, pero me lo guarda sin extensión y tengo que abrirlo "abrirlo con".
Y necesitaría que me lo guardase como "xlsb" , y que quedara así :
Factura 12-04-2014.
Un saludo

tyno


Hola Luis, saludos tan17 (por cierto muy bien por participar ayudando)

Luis, pues lo que tienes que hacer es muy fácil, al código que te paso tan17 solo le sumas la extensión:

texto = texto + Format(Now, "DDDD") + Format(Now, "mmmm") + Format(Now, "YYYY") + Format(Now, "HH") + ".xlsb"




Saludos

Invitado


Invitado
Gracias a los dos, tan17 y tyno, perfecto, no he podido verlo primero ya que en mi Parroquia, como somos tantos, dividen la Fiesta de Ramos y he tenido la celebracion esta tarde, por lo que pido disculpas por no poder contestar primero.
Podréis  decirme como puedo poner espacio entre el nombre, la fecha y el dia.
Un saludo

7RESUELTO crear una copia de respaldo el 12/04/14, 08:17 pm

tan17


Código:
ActiveWorkbook.Save
Dim texto As String 'ActiveWorkbook.Save
texto = "C:\Copias de Seguridad\Factura "
texto = texto + Format(Now, "DD") + "-" + Format(Now, "mm") + "-" + Format(Now, "YYYY") + "-" + Format(Now, "HH"

El nombre del archivo quedaria asi Factura12-04-2014-17
Código:
+ " "  

Saludos expertos ,signo del + y entre comillas lo  que gustes desde simbolos hasta espacios.

Invitado


Invitado
Que amables, todo perfecto, tema resuelto.
Muchas gracias, es un gusto este foro.
Un saludo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.