Bonjour,

Je souhaite faire une bloucle sur l'ensemble des fichiers d'un répertoire et les stocker dans un sous dossier portant le nom de la date du jour.

J'utilise donc la fonction Dir. Cela marche tres bien quand je ne fait que boucler sur les fichiers! Mais si je crée le sous-dossier au préalable cela me renvoie une erreur lors de la boucle :/

Ci dessous mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub stockage_folder()

a = Date
a = Replace(a, "/", "-")
MyPath = "C:\Documents and Settings\f-freyssinier\Desktop\Factures\"
fic = Dir(MyPath & "*.pdf")

If fic <> "" Then
    Dossier = MyPath & a
    If Dir(Dossier, 16) = "" Then
        MkDir Dossier
    End If
End If

Do Until fic = ""

    Name MyPath & fic As Dossier & "\" & fic

fic = Dir
Loop

End Sub
En rouge, l'erreur se produit à cette ligne!
Erreur numero 5: Argument ou appel de procédure incorrect"!

Je ne sais vmt pas d'où cela peut venir.

Chipss