Copie des fichiers d'un dossier à un autre à l'aide de vba

Il y a d'autres posts sur ce sujet, je le sais. Cependant, j'ai un code qui est différent de tous les codes que j'ai vu ici (quand on parle de ce sujet).

L'erreur que je reçois est dire que le fichier n'a pas pu être trouvé. Mais c'est impossible, puisque je suis à la recherche pour le fichier dans le même dossier que je suis en utilisant comme SOURCE ofs.CopyFile.

J'ai donc de corriger cette erreur et, si possible, je voudrais copier le fichier vers un autre dossier et modifier le nom. Par exemple, si j'ai le fichier "Excel.xls" je voudrais copier avec le nom "Excel_old.xls" est-ce possible à l'aide du code ci-dessous ou bien est-il trop dur qu'il ne vaut pas la peine?

C'est le code:

Sub CopyFiles()
'Macro to copy all files modified yesterday

Dim n As String, msg As String, d As Date
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fils = fso.GetFolder("C:\Users\Desktop\Files\").Files

'Verify all files in the folder, check the modification date and then copy 
'to another folder (named Old)
For Each fil In fils
    n = fil.Name
    d = fil.DateLastModified
    If d >= Date - 1 Then
        file = n
        'The following line is where the error occurs
        fso.CopyFile "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\file"

    End If
Next fil

End Sub

InformationsquelleAutor dekio | 2014-10-07

1

C'est parce que fso.CopyFile "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\file" n'est pas un fichier... C'est juste une chaîne de caractères dans un fichier fictif de regards de celui-ci.

Si, au lieu de la ligne a été

fso.CopyFile fil.Path, "C:\Users\Desktop\Files\Old\" & fil.name... qui pourrait fonctionner.

Mis à jour pour ajouter:

J'ai juste tenté le suivant à l'aide de (substrat de l'ordinateur nom d'utilisateur ci-dessous) et eu du succès en déplacement tout dans un nouveau dossier:
```
Sub test()
    Dim fso As FileSystemObject
    Dim fsoFiles As Files
    Dim fil As File

    Set fso = New FileSystemObject
    Set fils = fso.GetFolder("C:\Users\<MY USERNAME>\Desktop\").Files

    For Each fil In fils
        n = fil.Name
        d = fil.DateLastModified
        fso.CopyFile fil.Path, fil.ParentFolder & "\test\" & fil.Name

    Next fil
End Sub
```
La seule différence est qu'ici j'ai utilisé du fil.ParentFolder pour obtenir mon Bureau, puis jeté dans un nouveau dossier que j'ai créé sur mon bureau (avant l'exécution du script) nommé "test".
- c'est le droit. Mais il y a une faute de frappe, après fso.CopyFile il doit être soit file ou fil.name selon l'OP du code.
- Whooops! Il fixe.
- Mais j'ai encore l'erreur 13 Incompatibilité de Type
- Yep.. doit avoir été fil.path pas fil.name. Toutes mes excuses. Je suppose que je suis un peu rouillé avec l'ofs.
- Utilisé fso.CopyFile fil.Path, "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\file" et a obtenu la même erreur d'Incompatibilité de Type. J'ai aussi essayé fso.CopyFile fil.Path, "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\" et encore en train d'erreur 13
- Ne devrait-elle pas être: "C:\Users\Desktop\Files\" & fichier "C:\Users\Desktop\Files\Old\" & fichier
- Essayé, même erreur encore une fois, je suis à la recherche mais j'ai vraiment du mal
- Estraka, qui aurait plus de sens puisque c'est dans une boucle. Sinon, la Destination serait écrasé à chaque fois qu'un nouveau fichier est trouvé que les passages de l'instruction if. fso.CopyFile prend deux arguments, dekio, les deux sont une chaîne de caractères. La Source et la Destination à la fois de ce qui devrait être le chemin d'accès et nom de fichier complet.
- J'ai juste tenté moi-même de faire un Outils>>Référence à Microsoft Scripting Runtime afin que je puisse obtenir les info-bulles et d'auto-complétion de mon VBE. Tout a fonctionné comme j'ai prévu qu'il le ferait. (Je n'ai pas utiliser les variables n et d mais pensé que je pourrais inclure pour le plaisir. Le code que j'ai utilisé a été ajoutée à ma réponse.
- Permettez-moi de voir si je l'ai eu, parce que je ne suis pas si intelligent avec ces choses que j'écris très simple codes et je n'ai pas vraiment à comprendre comment travailler avec fso par exemple. Si je coche la case Microsoft Scripting Runtime, - je obtenir des conseils dans la rédaction des codes? Avez-vous une astuce afin que je puisse améliorer mon comprendre en vba et de ses objets, par exemple? Merci beaucoup pour toute l'aide ici!
InformationsquelleAutor JNevill

Pour déplacer tous les fichiers dans un dossier:

Sub MoveFiles()

Dim MyFile As String

MyFile = Dir("C:\AAAA\*.*")

Do Until MyFile = ""

Name "C:\AAAA\" & MyFile As "C:\AAA\" & MyFile

MyFile = Dir

Loop

End Sub

InformationsquelleAutor user3884205

Vous devez vous connecter pour publier un commentaire.