VBA : Compter le nombre de fichiers PDF dans des sous-dossiers

VBA : Compter le nombre de fichiers PDF dans des sous-dossiers - VB/VBA/VBS - Programmation

Marsh Posté le 21-04-2015 à 14:15:23    

Bonjour,
 
Je dois créer une macro VBA qui compte le nombre de fichiers PDF dans des sous-dossiers à partir de mon dossier principal (la macro doit parcourir chaque sous dossier présents dans mon dossier principal).
 
- Tout d'abord, mon dossier est de type F:\...
 
- A l'intérieur de mon dossier, il y a des sous-dossiers contenant des fichiers PDF dont certains ont le mot "signed" dans leur nom, et d'autres ne l'ont pas.  
 
--> Je dois compter le nombre de fichier qui ont le mot "signed" dans leur nom et je dois compter le nombre de fichiers qui n'ont pas le mot "signed"dans tous les sous-dossiers.
 
Merci beaucoup pour votre précieuse aide !! Je suis débutante en VBA et je ne m'en sors pas là ... Merci !  :)  


---------------
Harmony C
Reply

Marsh Posté le 21-04-2015 à 14:15:23   

Reply

Marsh Posté le 21-04-2015 à 14:31:19    

Bonjour,
 
As-tu déjà commencé ?
Avec un "dir()" et une boucle ça doit se faire facilement.
 
Cordialement

Reply

Marsh Posté le 21-04-2015 à 14:50:49    

Bonjour,
 
Alors voici ce que j'ai déjà fait :  
 
Sub Test_V2()
    'Compte tous les fichiers type .pdf
    MsgBox NbFich("F:\...", "pdf" )
End Sub
 
Function NbFich(Chemin As String, ParamArray Termin() As Variant) As Long
 
Dim Fichier As String
Dim Extension As Variant
Dim Compteur As Long
 
For Each Extension In Termin
   Fichier = Dir(Chemin & "\*." & Extension)
   Do Until Fichier = ""
   Compteur = Compteur + 1
   Fichier = Dir
   Loop
Next Extension
 
NbFich = Compteur
 
If bSousDossier Then
        For Each Dossier In Dossier.SubFolders
            NbDossiers = NbDossiers + 1
        Next Dossier
    End If
     
End Function
 
 
 
Ca me compte le nombre de fichier, mais je n'arrive pas a faire parcourir ma macro dans les différents sous-dossiers, et je n'arrive pas a faire une différence entre "signed" et les fichiers ne comportants pas le mot "signed" dans leur nom..
 
Merci pour votre aide.
Cordialement,
 
Harmony

Reply

Marsh Posté le 22-04-2015 à 09:10:48    

Salut, regarde ici Liste des fichiers d'un dossier avec recherche récursive ou non (Win 32/64 Bits) via les APIs : http://excel.developpez.com/telech [...] 32-64-Bits


Message édité par kiki29 le 22-04-2015 à 09:26:13

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 22-04-2015 à 14:54:33    

Merci beaucoup !!
 
Par contre la macro m'indique correctement le nombre de fichiers que j'ai, mais je n'arrive pas à modifier la macro pour qu'elle me dise combien de fichiers comportant le mot "signed" il y a et combien de fichiers ne comportant pas le mot "signed" il y a ..  
 
Pourriez-vous m'aider svp ??
 
Merci d'avance !!

Reply

Marsh Posté le 22-04-2015 à 16:21:03    

Salut, dans la boîte "Recherche" saisir : *signed*.pdf


Message édité par kiki29 le 23-04-2015 à 07:10:57

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed