Bonjour.

Dans la fonction suivante, j'ai un souci car les dossiers contenant des espaces semblent ne pas être pris en compte. Quelqu'un peut-il m'aider ?
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
Function CopierSousRepertoires (Source, Destination, PurgerDestination)
Dim CopieRep

Set objFolder = fso.GetFolder(Source)
Set colSubfolders = objFolder.SubFolders
For Each objSubfolder in colSubfolders

   If PurgerDestination = "Y" then
            AppelRobocopy objSubfolder.Path, Destination & "\" & objSubfolder.Name , True
        
   Else
            AppelRobocopy objSubfolder.Path, Destination & "\" & objSubfolder.Name , False
       
   End if
Next
Set CopieRep = Nothing
End Function
Merci d'avance.