Buenas! tengo la siguiente consulta, tengo un archivo excel con una Macro, la cual al apretar un botón ejecuta el siguiente código:
Código:
Private Sub CommandButton1_Click()
Dim ruta As String
Dim NombreFichero1 As String
Dim Fecha As String
Dim completa As String
ruta = Range("A1").Value
NombreFichero1 = Range("B1").Value
Fecha = Format(Now, " dd-mm-yyyy hh,mm")
completa = ruta & "nuevaCarp\"
If FileFolderExists(completa) Then
MsgBox "Folder exists!"
Else
MsgBox "Folder does not exist!"
MkDir completa
End If
ruta1 = ThisWorkbook.Path
MsgBox ruta1
ThisWorkbook.SaveAs Filename:=completa & NombreFichero1 & Fecha & ".XLSM"
End Sub
El problema está en lo que pinté de rojo, pues el archivo se guarda bien, incluyendo las rutas etc. Sin embargo, siempre que termina de guardarse, se Abre ese archivo mismo (el que acabo de guardar) y desparace el original. A mi solo me gustaría guardar el archivo en la ruta especificada, y que no se abra, es decir que siga trabajando en el primer archivo.
ESpero que se entienda! Muchas gracias! :)
Pablo