Bonjour à tous,

Une bonne âme codeuse pourrait-elle me dépanner ?

Je ne connais pas VBA et j'aurais besoin d'un petit coup de main concernant un programme qui ne sera déclenché qu'une seule fois.

Il faudrait déplacer tous les fichiers de plusieurs répertoires "fils" vers le répertoire "père", puis supprimer les répertoires "fils" qui devraient être vide après la boucle de traitement.

Soit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Repertoire A
    |______ Sous-répertoire A1
    |           |______ Sous-répertoire A11
    |           |           Fichier A11F1
    |           |           Fichier A11F2
    |           |           Fichier A11F3
    |           |______ Sous-répertoire A12
    |           |           Fichier A12F1
    |           |           Fichier A12F2
    |           |______ Sous-répertoire A13
    |                       Fichier A13F1
    |                       Fichier A13F2
    |                       Fichier A13F3
    |______ Sous-répertoire A2
                |______ Sous-répertoire A21
                |           Fichier A21F1
                |           Fichier A21F2
                |           Fichier A21F3
                |______ Sous-répertoire A22
                            Fichier A22F1
                            Fichier A22F2
doit devenir, dans un premier temps :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Repertoire A
    |______ Sous-répertoire A1
    |           |    Fichier A11F1
    |           |    Fichier A11F2
    |           |    Fichier A11F3
    |           |    Fichier A12F1
    |           |    Fichier A12F2
    |           |    Fichier A13F1
    |           |    Fichier A13F2
    |           |    Fichier A13F3
    |           |______ Sous-répertoire A11
    |           |______ Sous-répertoire A12
    |           |______ Sous-répertoire A13
    |______ Sous-répertoire A2
                |    Fichier A21F1
                |    Fichier A21F2
                |    Fichier A21F3
                |    Fichier A22F1
                |    Fichier A22F2
                |______ Sous-répertoire A21
                |______ Sous-répertoire A22
puis, en final :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Repertoire A
    |______ Sous-répertoire A1
    |                Fichier A11F1
    |                Fichier A11F2
    |                Fichier A11F3
    |                Fichier A12F1
    |                Fichier A12F2
    |                Fichier A13F1
    |                Fichier A13F2
    |                Fichier A13F3
    |______ Sous-répertoire A2
                     Fichier A21F1
                     Fichier A21F2
                     Fichier A21F3
                     Fichier A22F1
                     Fichier A22F2
Lors du déplacement d'un fichier, si celui-ci existe déjà (en cible), laisser le répertoire "fils" présent (source), ainsi que le fichier concerné (source).

Je ne sais pas si c'est possible en VBA.

Merci de votre aide.