Poner nombre a libro.-

hola, JC !

... poder nombrar un libro abierto desde comando, que contenga el texto de una celda en concreto, mas la fecha del dia...

OJO con los vinculos externos, y prueba con el metodo .SaveAs aplicado a un objeto Workbook (consulta el {F1} de vba)

a) el libro que contiene la macro ?... => Thisorkbook.SaveAs .
b) el libro que esta como "activo" ?.. => ActiveWorkbook.SaveAs ...
c) cualquiera otro libro abierto ?... => Workbooks("otro libro").SaveAs ...

segun donde este (libro y hoja) "la celda en concreto" (a), b) o c) ?????)
- SaveAs [celda en concreto] & Format(Date, "yyyy-mm-dd")

saludos,
hector.

Hola Héctor Miguel:

Y gracias (como siempre), por tu rápidez y concreción en la respuesta...
Pero yo sigo siendo el mismo "torpe" de siempre y no doy con la forma
adecuada para que salga tal como bien has explicado.
Como necesito que se guarde en una unidad de red, mi propuesta después de
varios intentos, probando diferentes combinaciones de simbolos, que me han
dado todo tipo de errores es:
ActiveWorkbook.SaveAs Filename:= _
"M:\Carpeta JC\Informes\CATALOGO\(1,1)&Format(Date,dd-mm-aaaa).xls",
FileFormat:=xlExcel8 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Y lo único que consigo es que finalmente se me guarde como
"(1,1)&Format(Date,dd-mm-aaaa).xls" literalmente.

Gracias por comentarme que estoy haciendo mal, por favor, Héctor Miguel.

Gracias de nuevo, disculpa todas las molestias y un fuerte abrazo.

JC

"Héctor Miguel" escribió:

hola, JC !

> ... poder nombrar un libro abierto desde comando, que contenga el texto de una celda en concreto, mas la fecha del dia...

OJO con los vinculos externos, y prueba con el metodo .SaveAs aplicado a un objeto Workbook (consulta el {F1} de vba)

a) el libro que contiene la macro ?... => Thisorkbook.SaveAs .
b) el libro que esta como "activo" ?.. => ActiveWorkbook.SaveAs ...
c) cualquiera otro libro abierto ?... => Workbooks("otro libro").SaveAs ...

segun donde este (libro y hoja) "la celda en concreto" (a), b) o c) ?????)
- SaveAs [celda en concreto] & Format(Date, "yyyy-mm-dd")

saludos,
hector.

Vale !!!... Ya encontré el error en mi sintaxis y ya me funciona a la
perfección:
ActiveWorkbook.SaveAs Filename:= _
"M:\Carpeta JC\Informes\CATALOGO\CATALOGO " & Day(Date) & "_" &
Month(Date) & "_" & Year(Date) & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

Un millón de gracias a Tí Héctor Miguel, que eres un Crack y a los demás
Amigos del Foro, que siempre estáis dispuestos a echarnos una mano (o las
dos) y sacarnos del atolladero y la ignorancia.

Un fuerte abrazo y hasta siempre.

"JC" escribió:

Hola Héctor Miguel:

Y gracias (como siempre), por tu rápidez y concreción en la respuesta...
Pero yo sigo siendo el mismo "torpe" de siempre y no doy con la forma
adecuada para que salga tal como bien has explicado.
Como necesito que se guarde en una unidad de red, mi propuesta después de
varios intentos, probando diferentes combinaciones de simbolos, que me han
dado todo tipo de errores es:
ActiveWorkbook.SaveAs Filename:= _
"M:\Carpeta JC\Informes\CATALOGO\(1,1)&Format(Date,dd-mm-aaaa).xls",
FileFormat:=xlExcel8 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Y lo único que consigo es que finalmente se me guarde como
"(1,1)&Format(Date,dd-mm-aaaa).xls" literalmente.

Gracias por comentarme que estoy haciendo mal, por favor, Héctor Miguel.

Gracias de nuevo, disculpa todas las molestias y un fuerte abrazo.

JC

"Héctor Miguel" escribió:

> hola, JC !
>
> > ... poder nombrar un libro abierto desde comando, que contenga el texto de una celda en concreto, mas la fecha del dia...
>
> OJO con los vinculos externos, y prueba con el metodo .SaveAs aplicado a un objeto Workbook (consulta el {F1} de vba)
>
> a) el libro que contiene la macro ?... => Thisorkbook.SaveAs .
> b) el libro que esta como "activo" ?.. => ActiveWorkbook.SaveAs ...
> c) cualquiera otro libro abierto ?... => Workbooks("otro libro").SaveAs ...
>
> segun donde este (libro y hoja) "la celda en concreto" (a), b) o c) ?????)
> - SaveAs [celda en concreto] & Format(Date, "yyyy-mm-dd")
>
> saludos,
> hector.
>
>
>