Salvar como

Hola Carlos,

?Que tal algo asi?:

Sub test()
With ActiveWorkbook
Ruta = "C:\Temp"
nSemana = .Worksheets("DW1").Range("A1"): ChDir Ruta
Ruta = Ruta & "\Semana" & nSemana: MkDir Ruta
.SaveCopyAs Ruta & "\" & "Semana" & nSemana & ".xls"
End With
End Sub

Nota: solo puedes crear un nivel de directorio a la vez, por lo que la ruta
inicial debe existir para poder anadir una carpeta. Si son mas de uno tienes
que ejecutar ChDir y MkDir para cada uno de los niveles que se quieren
crear.

Saludos,
KL


"carloshernandezy" wrote in message
news:
Hola a todos,

quisiera "salvar como" en un directorio variable y con un nombre de
archivo variable.

-Directorio- C:\\Año\Semana XX
-Archivo- ResumenSemanaXX.xls

Año - se puede capturar de una celda de la hoja "DW1"
SemanaXX- se puede capturar de una celda de la hoja "DW1"

Muchas gracias por vuestra atención