Hola buenas tardes a todos :
Actualmente utilizo la siguiente rutina para guardar la copia de un archivo
Sub Emite ()
Ruta = ActiveWorkbook.Path
RutaCopias = Ruta & "\Copias\"
.
ejecucion del programa
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (RutaCopias & NoFac)
ActiveWorkbook.Close
AHora tengo una pregunta ¿Hay alguna manera de saber si la carpeta "copias"
que es donde guardo los documentos existe ? ¿y si no existe como la creo ?
EN resumen quiero comprobar la existencia de la carpeta y si no existe
hacerla para despues guardar el archivo
Saludos
Jose A. Castrejón
Leer las respuestas