suppression d'un fichier en VBA

Bonjour,

J'essaye de monter une boucle qui me copie le contenu d'un fichier pour me l'ajouter au kilomètre dans un autre fichier. Le copie colle marche très bien, mais pour la faire tourner en boucle loop et pour eviter qu'elle refasse à l'infini j'aimerai lui demander de supprimer le fichier initiale une fois la copie effectué une fois qu'il est copie. Après avoir copier un fichier j''essaye de le supprimer mais j'ai un soucis d'accès refusé : voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Fso, SourceFolder, SubFolder, fichier As Object Set Fso = CreateObject("Scripting.FileSystemObject") Set SourceFolder = Fso.GetFolder(repertoire)   For Each fichier In SourceFolder.Files If Right(fichier.Name, 4) = ".xls" Or Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 5) = ".xlsm" Then If Left(fichier.Name, 2) <> "~$" Then Kill (fichier) End If End If Next fichier

---

et j'ai le message d'errreur qui s'affiche avec l'erreur sur kill(fichier)

Citation:

---

erreur d'éxécution 70
permission refusée

---

Merci d'avance de votre aide

Bonne journée,

Bonjour Candice c'est normal

fichier c'est le nom du fichier pas le chemin complet

Oupss!!!
autant pour moi tu utilise le FSO
alors non en fait c'est ta variable repertoire qui est vide

Code:

---

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

Sub test() Dim Fso, SourceFolder, fichier As Variant, repertoire As String repertoire = "C:\Users\polux\Desktop\annick" ' met le chemin de ton repertoire ICI!!!!!! Set Fso = CreateObject("Scripting.FileSystemObject") Set SourceFolder = Fso.GetFolder(repertoire) For Each fichier In SourceFolder.Files Debug.Print fichier If Right(fichier.Name, 4) = ".xls" Or Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 5) = ".xlsm" Then If Left(fichier.Name, 2) <> "~$" Then Kill (fichier) End If End If Next fichier End Sub

---