Boucle dans un dossier

Version imprimable

01/07/2013, 10h31
sasafca

Boucle dans un dossier
Bonjour à tous,

voila je souhaite effetuer un traitement sur les fichiers contenu dans un dossier. Mais je n'arrive pas à créer une boucle sur mes fichiers.

J'ai essayé ceci:
Code:

1 2 3 4 5 6 7 Chemin = "C:\..." Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 Debug.Print Chemin & Fichier Fichier = Dir Loop
Cependant, ce code lit 1 fichier sur 5...
J'ai donc 4 fichiers qui ne sont pas traités à chaque boucles.

Comment rectifié ceci svp ?

Merci!
01/07/2013, 11h00
Invité

Bonjour,

Je ne connais pas la fonction Len, mais (http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx) il semble qu'il s'agisse du nombre de caractère d'une chaîne de caractère.

Code:

Do While Len(Fichier) > 0

Cela signifie donc que si le nombre de caractères du nom fichier est supérieur à 0, la boucle s'arrête en principe.
01/07/2013, 11h03
sasafca

La fonction Len retourne le nombre de caractère du nom du fichier.
Donc ici, tant que le nom du fichier est supérieur à 0 (donc qu'il y a un nom de fichier) le programme tourne.
ça fonctionne mais le problème c'est que ça me saute des fichiers, autrement la boucle fonctionne elle s'arrete au dernier fichier.
01/07/2013, 11h08
EngueEngue

Sujet traité des millions de fois. Tu as 36 millions de façons d'approcher. Choisis la tienne. Google t'aidera: "Boucler VBA Fichiers Repertoire"
01/07/2013, 11h11
Daniel.C

Bonjour,

Peux-tu donner le nom d'un fichier non traité ? Est-ce qu'il ne s'agit pas de fichiers système ou cachés ?
01/07/2013, 11h15
sasafca

Citation:

Envoyé par EngueEngue

Sujet traité des millions de fois. Tu as 36 millions de façons d'approcher. Choisis la tienne. Google t'aidera: "Boucler VBA Fichiers Repertoire"

J'ai déjà cherché, j'ai même trouvé la boucle (que je cite plus haut) mais le problème c'est que ça ne traite pas tous les fichiers (seulement 1/5).
Merci quand même de la réponse.

Citation:

Envoyé par Daniel.C

Bonjour,

Peux-tu donner le nom d'un fichier non traité ? Est-ce qu'il ne s'agit pas de fichiers système ou cachés ?

Tous mes fichiers sont composés de la même manière (xxxxx - yyy.pdf), donc je ne comprends pas du tout d'ou ça peut venir :( J'ai quand même vérifié, ils ne sont pas cachés.

PS: J'ai ajouté des fichiers, mais la boucle va quand même de 5 en 5... (et ne prend donc pas forcèment les même fichiers à chaque test suivant que j'ajoute ou enlève des fichier). :calim2:
01/07/2013, 12h17
Invité

Citation:

Envoyé par sasafca

Donc ici, tant que le nom du fichier est supérieur à 0 (donc qu'il y a un nom de fichier) le programme tourne.

Oui, c'est ça plutôt :mrgreen: .
01/07/2013, 12h33
Daniel.C

"Dir" va lire les fichiers dans l'ordre de la date de création, pas forcément l'ordre qui est affiché dans l'explorer. Tu es bien sûr qu'en tout la boucle n'est passée que sur 1/5 des fichiers du dossier ?
01/07/2013, 13h47
sasafca

Incoryable, j'ai relancer Excel et la boucle marche.
J'ai cependant une erreur maintenant que j'ai ajouté mon traitement à la boucle sur le

Code:

Fichier = Dir

ça me met "Erreur d'execution 5" argument ou appel de procèdure incorrect...
alors que tout à l'heure la boucle fonctionnait...

Est-ce que vous pourriez jetter un coup d'oeil à mon fichier excel si je le post ?

encore merci de votre aide
01/07/2013, 13h50
EngueEngue

Fichier = Dir() ?
Faudrait penser à lui filer les arguments
01/07/2013, 13h59
sasafca

1 pièce(s) jointe(s)

Fichier = Dir, ça permettait à ma boucle d'avancer jusqu'à maintenant... enfin je dois rater quelque chose...
Si quelqu'un peut jeter un coup d'oeil j'en ai marre de bloquer sur cette boucle.
01/07/2013, 14h20
Daniel.C

Ca fonctionne ici. Ton ordi s'est levé du pied gauche. Redémarre-le.

1 pièce(s) jointe(s)

Bonjour,
extrait de ton code:

Code:

1
2
3
4
5
'Boucle sur tous les fichiers du répertoire.
    Fichier = Dir(Chemin & "*.*")
 
    'Do While Len(Fichier) > 0
    While Fichier <> ""

Code:

1
2
3
4
5
6
7
8
'Nouvel emplacement du fichier
        Chemin_dest = "G:\TRANSPORT\VEHICULES\Dossiers_Vehicules\"
        If Dir(Chemin_dest & immat & "-" & num_point, vbDirectory) = "" Then
            MkDir Chemin_dest & immat & "-" & num_point
            Chemin_dest = Chemin_dest & immat & "-" & num_point & "\"
        Else:
            Chemin_dest = Chemin_dest & immat & "-" & num_point & "\"
        End If

Code:

1
2
3
   Debug.Print Chemin & Fichier
        Fichier = Dir
Wend

tu utilise la commande dir à plusieurs endroits de ton code hors en faisant comme ça tu efface la recherche précédente et la fonction Fichier = Dir ne connais que le répertoire précédemment affecté: Dir(Chemin_dest & immat & "-" & num_point, vbDirectory) .

ça ne fonctionnait toujours pas chez moi même en redémarrant le pc...
J'ai donc pris la méthode de rdurupt ! J'étais sur que le problème venait du fait que j'utilisais fois dir, mais honnêtement je ne voyais vraiment pas comment y remédier.
Tu m'as fait un truc super en tout cas rdurupt !
Il manquait juste

Code:

Chemin_dest = Chemin_dest & immat & "-" & num_point & "\"

car ça créer les dossier mais ça coller les fichiers à côté.
Mais le reste est nikel !
Encore merci !

Bonjour,
j'ai une nouvelle question, grâce à ce code, la fonction retourne vrai si le dossier "repertoire" existe faux sinon.
Mais comment faire pour savoir si le dossier "repertoire" ou "repertoire..." existe ?
Rajouter comme une sorte de like "repertoire*" à la fonction est-il possible ?
Code:

1 2 3 4 5 6 Public Function Repertoires_Existe(Repertoires As String) As Boolean Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") Repertoires_Existe = Fso.FolderExists(Repertoires) Set Fso = Nothing End Function
Merci !

04/07/2013, 14h50
Invité

Bonjour,
dans le fichier que je t'es envoyé, tu as un vrai explorateur Windows.
toutes les questions et même celle que tu ne te pose pas ont les réponses de dans.il faut utiliser la variable ExpWin tu dispose de la saisie instinctive:
ExpWin si tu ajoute le [.] vb te propose le reste.

Code:

If ExpWin.Repertoires_Existe(Chemin) = True Then

dessolé je pense que j'ai pas compris ta question!
tu cherche c:\rep1\rep2\rep?
je regarde
04/07/2013, 14h58
sasafca

Oui mais par exemple j'ai mon fichier xxx.pdf, je souhaite vérifier si le dossier xxx existe, mais il peut aussi bien s'appeler xxx - yyy.
J'aimerai donc un truc du genre:

Code:

If ExpWin.Repertoires_Existe(Chemin & "*") = True Then

ou

Code:

If ExpWin.Repertoires_Existe like(Chemin"*") = True Then

or la fonction dans le fichier vérifie seulement si le fichier xxx existe mais retourne false si il est nommé xxx - y par exemple.

il faut que tu rajoute cette fonction dans la classe clsWindowsExporer.
elle te retourne un tableau des répertoires à toi de choisir en suite le bon.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Function Repertoires_Like(Repertoires)
Dim Fso As Object
Dim t
Dim rep
Dim Reps()
Dim r
r = 0
Dim I
ReDim Reps(0)
If Right(Trim("" & Repertoires), 1) = "*" Then
    t = Split(Repertoires & "\", "\")
    For I = 0 To UBound(t)
       If Right(Trim("" & t(I)), 1) = "*" Then Exit For
        rep = rep & Trim("" & t(I)) & "\"
    Next
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FolderExists(rep) = True Then
        Set FSfolder = Fso.GetFolder(rep)
 
        For Each subfolder In FSfolder.SubFolders
           If InStr(1, UCase(Trim("" & subfolder.Name)), Left(UCase(Trim("" & t(I))), Len(UCase(Trim("" & t(I)))) - 1)) <> 0 Then
            ReDim Preserve Reps(r)
            Reps(r) = subfolder.Path
            r = r + 1
           End If
        Next subfolder
    End If
End If
Repertoires_Like = Reps
Set Fso = Nothing
End Function

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
Dim ExpWin As New clsWindowsExporer
 
rep = ExpWin.Repertoires_Like("c:\rd\rd\r*")
 
For I = 0 To UBound(rep)
Debug.Print rep(I)
Next
End Sub

04/07/2013, 15h53
sasafca

Excellent !!
Mille merci !