Discussion :

[candice27]

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,

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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