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...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 18.2 Créer, gérer et supprimer les dossiers et les sous-dossiers
Suivant
Corrigé 18.4 Créer et utiliser un fichier texte