Macro pour déplacer un fichier

Bonjour,

J’ai la macro suivante qui me permet de copier mon fichier Pdf et le coller vers un autre dossier.

Je ne sais pas comment faire pour déplacer tous les fichiers d’un dossier vers un autre, et les supprimer du fichier source.

Pourriez-vous m'orienter ?

Merci de votre aide.

Sub TEST()
Dim SourceFile, DestinationFile
SourceFile = "C:\REPORTING du 07-12-2015.PDF"
DestinationFile = ThisWorkbook.Path
FileCopy SourceFile, DestinationFile & "\Test REPORTING\REPORTING du 07-12-2015.PDF"

End Sub

Bonjour

Essaie ce code :

Sub transfert()
    DestinationFile = ThisWorkbook.Path
    nomFichier = Dir("C:\*.PDF")
    sourceW = "C:\"
    Do While Len(nomFichier) > 0
        FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
        Kill sourceW & nomFichier
        nomFichier = Dir
    Loop
End Sub

Bye !

Bonjour,

Merci pour ta réponse, ton code me copie bien le fichier Pdf dans le dossier voulu, mais il ne le supprime pas une fois le transfert effectué,

j'ai le message d'erreur suivant : "Erreur d'accès Chemin/Fichier" à la ligne

Kill sourceW & nomFichier

Merci de ton aide.

Bonjour,

autre solution (que je publie 5 ans après fermeture du post en cas de recherche future ... comme je viens de le faire) :

Sub DeplacerUnFichier()

repertoire = "C:\Users\Michel\Downloads\depuis"
archive = "C:\Users\Michel\Downloads\destination"
fichier = "test.txt"

Name repertoire & "\" & fichier As archive & "\" & fichier

End Sub