Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1461 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2256282
harmonyc
Posté le 21-04-2015 à 14:15:23  profilanswer
 

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
mood
Publicité
Posté le 21-04-2015 à 14:15:23  profilanswer
 

n°2256284
admntium
Posté le 21-04-2015 à 14:31:19  profilanswer
 

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

n°2256285
harmonyc
Posté le 21-04-2015 à 14:50:49  profilanswer
 

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

n°2256322
kiki29
Posté le 22-04-2015 à 09:10:48  profilanswer
 

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
n°2256369
harmonyc
Posté le 22-04-2015 à 14:54:33  profilanswer
 

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

n°2256375
kiki29
Posté le 22-04-2015 à 16:21:03  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
fichiers css et htmlSelection plage de données VBA
Copie coller avec VBA deux fichiers différentsBesoin d'aide Algorithmes VBA
recuperer le nombre REEL de pixels d'un divVBA EXCEL impossible de modifier le contenu d'une cellule
VBA excel Consolidation de donnéesVBA EXCEL exportation de donnée vers une BD
Plus de sujets relatifs à : VBA : Compter le nombre de fichiers PDF dans des sous-dossiers


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR