Suppression d'un fichier en VBA

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:

---

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:

---

Kill sourceW & nomFichier

---

Où se situe le problème ?

Merci de votre aide.

Salut Antoine,

Chez moi aucun problème
le Kill se passe bien, sauf cette partie qui ne veux rien dire "problème d'argument" que j'ai mis en commentaire dans le code ci-dessous mais ça c un autre problème:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test()   DestinationFile = ThisWorkbook.Path nomFichier = Dir("F:\resonateur.pdf") sourceW = "F:\" Do While Len(nomFichier) > 0 FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier Kill sourceW & nomFichier   'nomFichier = Dir Loop End Sub

---

Si tu as respecté l'enregistrement de ton classeur, l'existance de ton fichier pdf, et bien pas de souci, quand tu regardes mon code la seule chose que j'ai changé c'est le nom du fichier et la source

Redit nous
Seb

Bonjour,


avant de faire cela avec une macro as tu essayé de supprimer le fichier par l'explorateur de windows ?

Bonjour,


Oui, mais celà n'a pas résolu mon problème.

Citation:

---

Envoyé par antoinesop

Bonjour,


Oui, mais celà n'a pas résolu mon problème.

---

pas de problème pour la suppression depuis l'explorateur ?

Bonjour,

Sur Windows 10, si l'OS est installé sur le disque C, il refuse l’accès à la racine pour l'instruction Kill, du coup il faudrait ranger les PDF dans un dossier et non à la racine.
J'ai également testé avec FSO et pareil.

@+