Salut à toutes à tous,
Je rencontre un petit problème.
J'essaie de copier un dossier et son contenu à l'aide de CopyFolder.
J'aimerais que le dossier de destination ait le même nom que le fichier excel sur lequel je lance ma macro.
Il crée bien le dossier mais ensuite : "Chemin d'accès introuvable"
Si quelqu'un a une idée ??
Merci à vous
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 Copier_Dossier() Dim nom_dossier As String Dim GestionFichier As New Scripting.FileSystemObject nom_dossier = ThisWorkbook.Name nom_dossier = Left(nom_dossier, InStrRev(nom_dossier, ".") - 1) GestionFichier.CopyFolder "C:\Users\moi\Desktop\toto", "C:\Users\moi\Desktop\ " & nom_dossier & " " Set GestionFichier = Nothing End Sub
Partager