Crear carpeta en el escritorio y guardar archivos dentro
Tengo el siguiente código el cual me colaboraron en crear muy amablemente, tengo un botón que al oprimir activa la macro, pero necesito que al oprimir el botón se cree una nueva carpeta nombrada con el valor de la celda j9, y queden dentro de ella un pdf de la hoja activa llamado propuesta con nombre de la celda j7 y a su vez quede grabado el libro en formato habilitado para macros con nombre del valor de la celda j8, muchas gracias
Set h1 = Sheets("PROPUESTA") carpeta = "C:\trabajo\" & Trim(h1.[J9]) aPdf = h1.[J7] aMacro = h1.[J8] If Dir(carpeta, vbDirectory) = "" Then MkDir carpeta If Right(carpeta, 1) <> "\" Then carpeta = carpeta & "\" h1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=carpeta & aPdf & ".pdf" ActiveWorkbook.SaveCopyAs carpeta & aMacro & ".xlsm" MsgBox "Fin"
1 respuesta
Respuesta de Dante Amor
1