Anónimo respondió:
Agrega esto antes de Ruta= a = Range("C66")............'Es el rango donde esta la fecha que toma del archivo a = Format(a, "dd-mm-yyyy") y reemplazas aca lo que est en negrita por a NomSugerido = ruta & "Mantención Correctiva" & " " & Range("C11") &...
cristhianlgl respondió:
Lo que pasa es que no esta guardando, con el método GetSaveAsFilename lo que haces es capturar el nombre, el tipo de archivo y la ubicación donde va a ser guardado, para guardar el archivo tienes que utilizar el método SaveAs y entonces tu código...