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 : Sélectionner tout - Visualiser dans une fenêtre à part
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)
erreur d'éxécution 70
permission refusée
Merci d'avance de votre aide

Bonne journée,