macro compter fichier dans repertoire

Bonjour,
j'ai créer un code qui compte le nombre de document Word contenu dans un repertoire, il marche très bien lorsqu'il s'agit d'un document Word ou Excel, mais dès que je veux compter le nombre de document de type ZIP, ça ne me compte rien..

Si quelqu'un peut y jeter un coup d'oeil et me dire se qu'il en pense. Merci d'avance.

Mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 For i = 13 To 25 Range("I" & i) = "" 'Recherche du nombre de fichier ZIP contenu dans le dossier Set fs = Application.FileSearch With fs .LookIn = repertoire .Filename = "*.zip" .SearchSubFolders = 0 If .Execute > 0 Then Range("I" & i) = .FoundFiles.Count Else Range("I" & i) = " 0 " End If End With Next i

Salut,

essaie ceci (non testé mais basé sur ce que je vois dans l'aide).
;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For i = 13 To 25
        Range("I" & i) = ""
        'Recherche du nombre de fichier ZIP contenu dans le dossier
        Set fs = Application.FileSearch
        With fs
            .LookIn = repertoire
            .Filename = "*.zip"
            .FileType = msoFileTypeAllFiles
            .SearchSubFolders = 0
            If .Execute > 0 Then
                Range("I" & i) = .FoundFiles.Count
            Else
                Range("I" & i) = " 0 "
            End If
        End With
 
    Next i

Question : à quoi sert ta boucle ? Ou dit autrement, quel est l'impact de i sur ta recherche ? je n'en vois aucun .

dans la rubrique contribuez :

http://www.developpez.net/forums/sho...d.php?t=529905

...

Merci de vos réponses..

En fait ma boucle parcours mon document Excel et récupère une valeur "repertoire" différente. Et ensuite, je compte dans chaque répertoire et je marque le nombre à côté.

Ok,

mais c'est mieux si tu donnes la boucle complète quand tu as un problème car pour donner une solution efficace il faut comprendre. ;)
Penses-y !.

Comme ilcocodrillo, avec

Citation:

Dir

, je suis certain que ca marche.

Bonjour,

mon script marche bien, merci de vos réponses. Je le mets dessous au cas où cela interesse quelqu'un.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function fichier_zip(repertoire, i)
 
chemin = "C:\Documents and Settings\simon.perdriolle\Bureau\SFR\abcabc_110014_110030\110014\1_ADMINISTRATIF\1-1 Identification du site\110014_1-1A_identification_120608"
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    fichier_zip = fs.GetFolder(repertoire).Files.Count
    Nomfich = Dir(repertoire & "\*.zip")
    Do While Nomfich <> ""
        nb = nb + 1
        Nomfich = Dir()
    Loop
    Range("I" & i) = nb
End Function

Salut,

Citation:

Set fs = CreateObject("Scripting.FileSystemObject")
fichier_zip = fs.GetFolder(repertoire).Files.Count

Je ne sais pas à quoi sert cela. (il me semble à rien du tout)
Je ferais plutot ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Function fichier_zip(repertoire, i) chemin = "C:\Documents and Settings\simon.perdriolle\Bureau\SFR\abcabc_110014_110030\110014\1_ADMINISTRATIF\1-1 Identification du site\110014_1-1A_identification_120608" Dim Rep As Variant, Nomfich As String, nb as long Nb = 0 Nomfich = Dir(repertoire & "\*.zip") Do While Nomfich <> "" nb = nb + 1 Nomfich = Dir() Loop Range("I" & i) = nb fichier_zip = nb End Function
pense à cliquer :resolu: . bonne journée.

Je vais faire comme tu dis. Merci