macro para elegir carpeta origen, destino y copia recursiva de archivos . 

 

El problema que presenta es que cuando debería de salir de un menú inicial para seleccionar entre 4 opciones,  y acto seguido pasarle un valor selecionado como carpeta origen al modulo principal. 

Acto seguido debería de solicitar una carpeta destino .

La comprobacion de la existencia de los archivos se realiza desde un segundo archivo excel, haciendose la comprobacion en la carpeta origen y en todas sus subcarpetas de manera que todo aquel archivo que exista en carpeta origen o subcarpetas y aparezca su nombre en el segundo archivo excel será copiado en la carpeta destino.

 

 

VENTANAS EXPLORADOR WINDOWS_v2.xlsm

Editado el el 27 de marzo2 años por foroexcel1987

En 27/3/2023 at 15:42 , foroexcel1987 dijo:

El problema que presenta es que cuando debería de salir de un menú inicial para seleccionar entre 4 opciones,  y acto seguido pasarle un valor selecionado como carpeta origen al modulo principal. 

Aparte de intentar explicar un poco más tu problema, debes aplicar un poco la lógica. Fíjate en tu siguiente código:
 

Private Sub CommandButton1_Click()
    If Me.ComboBox1.ListIndex < 0 Then
        MsgBox "Por favor, seleccione una opción de carpeta de origen.", vbCritical, "Error"
        Exit Sub
    End If
    ' CopiarArchivosFacturas (Eliminar esta línea)
    Unload Me
End Sub

Tienes un If para comprobar que no está vacío el Combo... ¿Pero y si esta con datos? . La macro no hace nada, pues sales del If y descargas el Form