ub guardar()

'archivo = Range("G2")
archivo = Worksheets("Parte").Range("G2")
nombre = "C2020-0138" & "_" & Day(Range("f2").Value) & "_" & Month(Range("f2").Value) & "_" & Year(Range("f2").Value) & "_" & archivo & ".xls"



ActiveWorkbook.SaveAs nombre, FileFormat:=xlOpenXMLWorkbookMacroEnabled



End Sub

Buenos días 

Podrías guiarme  en esta macro, quiero que me guarde el archivo en una carpeta especifica si necesidad de ser abierto.

 

Gracias de antemano

Hace 1 hora, Juan Carlos torres ruiz dijo:

quiero que me guarde el archivo en una carpeta especifica si necesidad de ser abierto

Y si no lo tienes abierto como ejecutas la macro para guardarlo ?  no se si he entendido bien lo que necesitas, mejor sube tu archivo y explica en que carpeta quieres guardarlo y de donde tomamos el nombre que tenemos que asignarle al nuevo archivo.

Sub CopiarArchivo()
FileCopy RutaArchivoOrigen, RutaArchivoDestino
End Sub

 

Buenas 

La macro esta en el archivo "epycSo rev1" y abre el archivo c2020-0136_carga_horas (1)2.xlsm

La macro ya me pone el nombre que quiero pero me lo abre y lo manda a la carpeta de documentos.

La carpeta de destino debe ser esta "C:\Users\jctorres\Desktop\Programaciones vba\Partes presenciales\"

epycSO REV 1.xlsm C2020-0136_Carga_Horas (1)2.xls

Prueba y comenta

Sub guardar()

    archivo = Worksheets("Parte").Range("G2")
    nombre = "C2020-0138" & "_" & Day(Range("f2").Value) & "_" & Month(Range("f2").Value) & "_" & Year(Range("f2").Value) & "_" & archivo & ".xls"
    Ruta = "C:\Users\jctorres\Desktop\Programaciones vba\Partes presenciales\"
    Application.ThisWorkbook.SaveCopyAs Ruta & nombre

End Sub

 

Buenas 

se crea el archivo sin problemas con el nombre que le toca y lo guarda donde toca.

Lo que me deja abierto es el archivo c2020-0136_carga_horas (1)2.xls

Puedes decirme como modificar ese tramo de la macro?

Workbooks("c2020-0136_carga_horas(1)2.xls").Close True

Workbooks("c2020-0136_carga_horas (1)2.xls").Close False