Discussion :

[Marilo30]

Bonjour,

J'ai exploré plusieurs posts pour créer un vba qui copie un dossier et son contenu, d'un emplacement vers un autre.
J'ai donc ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
Dim dossier As Object
Dim chemin As String
Dim chemin_2 As String
 
Set dossier = CreateObject("Scripting.FileSystemObject")
 
chemin = ThisWorkbook.Path & "\Amortissements"
chemin_2 = ThisWorkbook.Path & "\Calendrier des dépenses"
 
dossier.CopyFolder chemin, chemin_2, True
 
End Sub

Pour faire simple, dans le dossier actuel où se trouve mon fichier Excel j'ai plein de sous-dossiers, et je voudrais copier le sous-dossier 1 (avec les fichiers qui le compose), vers un sous-dossier 2.
A terme, j'aurais donc dossier\sous-dossier1 et dossier\sous-dossier2\sous-dossier1 (tout en conservant le sous-dossier1 dans le dossier).

Mon code ci-dessus fonctionne, mais ne copie pas le dossier dans son entièreté. Il copie le contenu du sous-dossier1 et le colle dans le sous-dossier2. Donc sur la copie du contenu c'est ok, le soucis c'est que j'aurais voulu que les fichiers qui composent le sous-dossier1 soient contenu dans un dossier du même nom.
Je suis actuellement en capacité de créér le dossier pour y intégrer les fichiers, mais je voudrais savoir s'il est possible de copier coller le sous-dossier1 sans avoir à recréer un sous-dossier par ailleurs.

J'espère avoir été clair.

Merci d'avance pour votre aide.

[EricDgn]

Bonjour,

Si j'ai bien compris, modifier la ligne 10:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin_2 = ThisWorkbook.Path & "\Calendrier des dépenses\Amortissements"

Cordialement.