Discussion :

[PC81]

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 :

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
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

[Godzestla]

Salut,

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

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
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 .

[ilcocodrillo]

dans la rubrique contribuez :

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

...

[PC81]

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é.

[Godzestla]

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

Dir

, je suis certain que ca marche.

[PC81]

Bonjour,

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

Code :

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

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