Copier coller dossier via vba
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:
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.
