Bonjour,

La macro suivante permet de copier un fichier avec une extension Pdf et le déplacer vers un autre répertoire et de le supprimer une fois la copie est faite.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
    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
La copie s’effectue bien, mais la suppression ne se fait pas et j’ai le message suivant :
« Erreur d’accès Chemin/Fichier » à la ligne 8
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Kill sourceW & nomFichier
Où se situe le problème ?

Merci de votre aide.