Discussion :

[Chipss]

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

[tototiti2008]

Bonjour Chipss,

Si tu appelles la fonction Dir sans argument, elle te renvoie la prochaine réponse à la recherche précédente

Or dans ta création de dossier, tu réutilises Dir :

Code :

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

If Dir(Dossier, 16) = "" Then

Donc si tu crées le dossier, le Dir de la fin (Do-Loop) renvoie la prochaine réponse de celui de la création de dossier...

Peut-être comme ça :

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
fic = Dir(MyPath & "*.pdf")
    End If
End If

Do Until fic = ""

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

fic = Dir
Loop

End Sub

[Chipss]

Ok merci bcp ta solution marche!

J'avais egaleemtn reussi en sortant les ligne pour créer le dossier dans un sub différent.

Merci pour l'explication en tout cas

Chipss