Salut, je desire faire un déplacement de 2 fichiers d'un repertoire a un autre, j'ai utilise le code ci-dessous, mais lorsque j'execute le code, un seul des fichiers est deplace, puis j'obtiens un message d'erreur "File Not Found". Je desire deplacer les 2 fichiers en meme temps vers leurs repertoires correspondants. Que dois-je corriger dans le code? Merci pour votre reponse.
Private Sub Form_Load()
Dim folder, file, filelist()
i = 0
ReDim filelist(0)
Set folder = fso.GetFolder("\\repertoire\sous_repertoire\")
For Each file In folder.Files
If LCase(Right(file.Name, 3)) = "txt" Then
i = i + 1
ReDim Preserve filelist(i)
Set filelist(i) = file
For j = 0 To i
fname = Mid(file.Name, 1, 3)
Select Case fname
Case "Act"
fso.MoveFile "\\repertoire\sous_repertoire\" & file.Name, "\\repertoire\sous_repertoire\Activations\" & file.Name
Case "Aut"
fso.MoveFile "\\repertoire\sous_repertoire\" & file.Name, "\\repertoire\sous_repertoire\Authorizations\" & file.Name
End Select
Next
End If
Next