Excel - COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Pos: 48

Val: 44

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por santi (24 intervenciones) el 02/11/2018 15:35:47

Hola,

Buenas tardes,

Os agradecería vuestra ayuda para crear una macro que haga varias cosas.

Por un lado estoy en una hoja de un libro. necesito que cambie el nombre del libro por un nombre que tengo en una celda de ese libro.El archivo de excell desde donde lanzaremos la macro tiene de nombre Master XXXX-M-XXX CLIENTE-OBRA1. dentro de este libro hay que ir a la hoja COM_ADMIN y en la celda C4 el nombre que hay que darle al archivo.

Una vez a cambiado el nombre necesito que lo guarde en una carpeta que aún no existe, por lo que necesitaría que la creara

Para crearla tengo una carpeta en una dirección de un servidor (P:\Pedidos\PED_2018\MODELO) y quiero copiarla con los archivos que contiene dentro de otra carpeta (P:\Pedidos\PED_2018\PEDIDOS 2018). Además necesito que una vez pegada le cambie el nombre por el texto que tengo en una celda C3 del archivo excell Master XXXX-M-XXX CLIENTE-OBRA1. dentro de este libro hay que ir a la hoja COM_ADMIN y en la celda C3 esta el nombre que hay que darle al archivo. Una vez creada necesito que guarde el archivo al que le hemos cambiado el nombre.

He encontrado alguna macro que me dice como cambiar el nombre de un archivo por otro, pero el problema es que el nombre del archivo y de la carpeta será diferente en cada proyecto. Las rutas serán las mismas, pero el nombre del archivo lo cambiamos de Master XXXX-M-XXX CLIENTE-OBRA1 a el que corresponda por proyecto y lo mismo pasa con la carpeta que pasará a llamarse de "MODELO) a el nombre del proyecto que le corresponda y que encontraremos, respectivamente, en las celdas C4 para el archivo y C3 para la carpeta.

Se que es un poco complicado y no estoy seguro que se pueda hacer, Pero agradecería vuestra enorme experiencia para intentar conseguirlo.

Muchas gracias por la ayudo.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 4.908

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por Antoni Masana (2478 intervenciones) el 27/11/2018 13:20:04

Te pongo un pupurri de cosas, úsalas como mejor te funcione o necesites.

Sub Renombra()

    Dir_Orig = "P:\Pedidos\PED_2018\MODELO"

    Dir_Dest = "P:\Pedidos\PED_2018\Proyecto 2018"

    Arch_Orig = "Documeto.EXT"

    Arch_Dest = Sheets("COD ADMIN").Range("C4") & ".EXT"

    ' ---&--- Crear un DIRECTORIO solo si no existe

    If Dir(Dir_Dest, vbDirectory) = "" Then Dir_Dest

    ' ---&---- Esta opcion MUEVE el archivo origen al destino y cambia el nombre

    Name Dir_Orig & "/" & Arch_Orig As Dir_Dest & "/" & Arch_Dest

    ' ---&---- Esta opcion COPY el archivo origen al destino y cambia el nombre

    FileCopy Dir_Orig & "/" & Arch_Orig, Dir_Dest & "/" & Arch_Dest

End Sub

Si tienes problemas enviamelo y te ayudo.

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 48

Val: 44

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por santi (24 intervenciones) el 29/11/2018 15:01:01

Hola,

No consigo que me funcione.

Yo tengo ahora esta macro que me funciona:

Sub crearcarpeta2()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.EnableEvents = False

ActiveSheet.DisplayPageBreaks = False

 Ruta = "C:\Users\SantiQuirante\Desktop"

 arch = Range("C3")

If Dir(Ruta & "\" & arch, vbDirectory) = "" Then

   MkDir Ruta & "\" & arch

ActiveWorkbook.SaveAs Filename:=Ruta & "\" & arch & "\" & Range("C4")

End If

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Application.EnableEvents = True

ActiveSheet.DisplayPageBreaks = True

Application.CutCopyMode = False

End Sub

Con esta macro me crea la carpeta con el nombre correcto y le guarda el archivo dentro. Hasta ahí, perfecto. Solo me falta conseguir que coja de la carpeta MODELO en la ruta "P:\Pedidos\PED_2018\MODELO" las carpetas que hay dentro y las copie en la que acabo de crear. Con esto hará todo lo que necesito.

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por Antoni Masana (2478 intervenciones) el 30/11/2018 07:08:48

Haber si esto es lo que necesitas. Resalto en NEGRITA los cambios realizados.

Sub crearcarpeta2()

    Dim Dir_Orig As String, _

        Dri_Dest As String, File As String

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    Application.EnableEvents = False

    ActiveSheet.DisplayPageBreaks = False

    Dir_Dest = "C:\Users\SantiQuirante\Desktop" & "\" & Range("C3")

    Dir_Orig = "P:\Pedidos\PED_2018\MODELO"

    If Dir(Dir_Dest, vbDirectory) = "" Then

        MkDir Dir_Dest

        ActiveWorkbook.SaveAs Filename:=Dir_Dest & "\" & Range("C4")

        File = Dir(Dir_Orig & "\*.*")

        While File <> ""

            FileCopy Dir_Orig & "\" & File, Dir_Dest & "\" & File

            File = Dir()

        Wend

    End If

    Application.ScreenUpdating = True

    Application.Calculation = xlCalculationAutomatic

    Application.EnableEvents = True

    ActiveSheet.DisplayPageBreaks = True

    Application.CutCopyMode = False

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 48

Val: 44

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por santi (24 intervenciones) el 30/11/2018 10:25:58

Buenos días Antoni,

Gracias por la ayuda, pero no funciona. La parte inicial la sigue haciendo bien, pero no me copia las carpetas que hay dentro de la carpeta modelo. Si pongo archivos, copia los archivos, pero no las carpetas.

Por otro lado he descubierto un problema. Cuando hacía las pruebas con la macro siempre lo hado con documentos que había guardado previamente. Pero al probarla con el documento original me da problemas.
El documento original es una plantilla habilitada para macros, que hay que guardarla como libro habilitado para macros. No sé como decirle en la macro que lo guarde como tal.

Muchísimas gracias por la ayuda.

Valora esta respuesta

Comentar

Pos: 2

Val: 4.908

COPIAR UNA CARPETA, PEGARLA EN OTRA CARPETA Y CAMBIAR EL NOMBRE

Publicado por Antoni Masana (2478 intervenciones) el 01/12/2018 09:55:00

Buenos días,

para saber como hacer algo en VBA en Excel la mejor forma es GRABAR MACRO y hacerlo.

Y la parte de copiar puedes hacerlo de dos formas:

- Usando el código recursivó por para buscar ficheros y carpetas para copiarlos.
- Usar algo que ya lo sabe hacer y es muchisimo más simple:

Shell "XCOPY " & Dir_Orig & "\*.*  " & Dir_Dest & " /S /Y >nul 2>&1", VbHiden

No se ahora exactamente toda la sintaxis del SHELL (VBA) y los parámetros del XCOPY (MSDOS). Pero esto es rápido y sencillo.

Saludos.
\\//_

Valora esta respuesta

Comentar

dos condiciones en columnas distintas

Tipografia condicional Excel