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 :
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.
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 :
Code:
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 SubSeulement 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.