Lister des fichiers répondant à certains critères

[Troudz]

Bonjour,

Je viens de réaliser une petite macro qui devrait me permettre de lister tous les fichiers présents sur un lecteur et qui répondent à certaines critères :
- Longueur de fichier supérieur à 250 caractères
- Présence de lettre accentuées dans le chemin
- Plus de 6 niveau d'arborescence.

A aujourd'hui ma macro ressemble à ça :

Sub test()
    i = 1
    Fichier = "P:\" & "*"
    Do While Fichier <> ""
        If Len(Fichier) > 250 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(224)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(226)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(231)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(232)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(233)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(234)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(235)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(238)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(239)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(244)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(249)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(251)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(252)) > 0 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
        If InStr(1, Fichier, Chr(92)) > 7 Then Cells(i, 1) = Fichier: i = i + 1: GoTo Suite:
Suite:
        Fichier = Dir()
    Loop
End Sub

Seulement au lancement, j'ai une erreur "Argument ou appel de procédure incorrect" sur la ligne "Fichier = Dir()" mais impossible de comprendre mon erreur.

Quelqu'un pourrait m'éclaire ?

Merci d'avance et bonne journée à tous.

 

[Troudz]

Re : Lister des fichiers répondant à certains critères

Bon, j'ai réussi à résoudre partiellement le problème en remplaçant :

Fichier = "P:\" & "*"

par

Fichier = dir("P:\" & "*")

Par contre ça ne me liste aucun fichier. Je ne comprends pas pourquoi.