Nombrar libro con valor de celda contenida en el libro

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
o mucho me equivoco o no se puede hacer desde el propio libro, no se puede
renombrar un archivo abierto. Otra cosa sería que quisieras renombrar una
hoja.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"juanpacasa" escribió en el mensaje
de noticias news:

¡ Hola !
Por favor cómo hago para nombrar un libro con el valor de una celda
contenida en una hoja del mismo libro que quiero nombrar.
Gracias

__________ Information from ESET Smart Security, version of virus
signature database 6774 (20120107) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 6774 (20120107) __________

The message was checked by ESET Smart Security.

http://www.eset.com

On 7 ene, 11:55, juanpacasa
wrote:

¡ Hola !
 Por favor cómo hago para nombrar un libro con el valor de una celda
 contenida en una hoja del mismo libro que quiero nombrar.
 Gracias

Hola.

Tienes que hacerlo mediante un evento del tipo siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" And Target.Value <> "" Then
ActiveWorkbook.SaveAs Target.Value
End If

End Sub

Saludos,

Benito Merino

En estos casos, a mi me gusta controlar el posible uso de caracteres no
válidos como parte de nombrefichero.
En el ejemplo de tu código quedaría asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" And Target.Value <> "" Then
Dim CarInvalidos As Variant, i As Long, nombre As String
nombre = Target.Value
CarInvalidos = Array(":", "\", "/", "?", "*", "[", "]")
For i = 0 To UBound(CarInvalidos)
If InStr(nombre, CarInvalidos(i)) Then
MsgBox "El nombre """ & nombre _
& """ contiene caracteres invalidos: """ _
& CarInvalidos(i) & """."
Exit Sub
End If
Next i
ActiveWorkbook.SaveAs Target.Value
End If
End Sub

También sería conveniente prevenir el caso de que el nombre del fichero ya
existiese en la carpeta del path.
Saludos.-

"Benito Merino" escribió en el mensaje de noticias
news:
On 7 ene, 11:55, juanpacasa
wrote:

¡ Hola !
Por favor cómo hago para nombrar un libro con el valor de una celda
contenida en una hoja del mismo libro que quiero nombrar.
Gracias

Hola.

Tienes que hacerlo mediante un evento del tipo siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" And Target.Value <> "" Then
ActiveWorkbook.SaveAs Target.Value
End If

End Sub

Saludos,

Benito Merino