VBA : Compter le nombre de fichiers PDF dans des sous-dossiers - VB/VBA/VBS - Programmation
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
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
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
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 !!
Marsh Posté le 22-04-2015 à 16:21:03
Salut, dans la boîte "Recherche" saisir : *signed*.pdf
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