Macro para guardar archivo con otro nombre y en otra carpeta

Juan Carlos torres ruiz · el 31 de marzo

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

JSDJSD · el 31 de marzo

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.

Antoni · el 31 de marzo

Sub CopiarArchivo()
FileCopy RutaArchivoOrigen, RutaArchivoDestino
End Sub

Juan Carlos torres ruiz · el 31 de marzo

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

JSDJSD · el 31 de marzo

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