Crear una carpeta y meter un archivo
Soy nuevo en esto, así que disculpad mi ignorancia.
Quiero crear una macro que genere una carpeta nueva con el nombre del valor de una celda (excel), y que después meta una copia del archivo en dicha carpeta. Si dicho archivo ya existe que lo indique y de la oportunidad de sobreescribirlo o no.
1 respuesta
Esta es la macro que necesitas. La ruta y nueva carpeta quedan en variables para que ajustes a tu caso.
Comentas que 'si dicho archivo ya existe'... bueno, esto no se va a dar porque acabas de crear la carpeta y por lo tanto no habrá otro archivo.
Lo que si controla la macro es que ya exista esa carpeta que intentas crear, en ese caso seguirá con el código guardando allí mismo la copia de tu libro activo.
Sub creaCarpeta()
'x Elsamatilde
Dim rutaBase As String, carpeta As String
'variables para ajustar
rutaBase = "C:\"
carpeta = Sheets("Resumen").Range("C2") & "\"
'controla posible error de que ya exista la carpeta
On Error Resume Next
MkDir rutaBase & carpeta
ActiveWorkbook.SaveCopyAs rutaBase & carpeta & ActiveWorkbook.Name
End Sub
Sdos y no olvides valorar la respuesta recibida.
