Corrigé 18.3 Copier, déplacer et supprimer les fichiers

 Sub CopieDéplace() 
   Dim fso As Scripting.FileSystemObject 
   Dim fldAppli As Scripting.Folder 
   Dim ficFichier As Scripting.File 
   Dim strFichiers As String 
 
   Set fso = New Scripting.FileSystemObject 
   Set fldAppli = fso.GetFolder(ThisWorkbook.Path) 
    
   ' 1. Copie des fichiers du dossier Ressources 
   '    vers le dossier CopieRessources 
   For Each ficFichier In fldAppli.SubFolders("Ressources").Files 
       ficFichier.Copy Destination:=fldAppli.SubFolders("CopieRessources").Path & "\" 
       ' Remarque : le \ final...