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