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