Recherche de fichier dans une arborescence

[Sly le globe trotter]

Bonjour le forum,

Je souhaite rechercher si un fichier (dont je connais le nom) se trouve dans une arborescence de fichiers.
Je m'explique :
J'ai un dossier avec plusieurs sous dossiers qui eux-mêmes ont plusieurs sous-dossier :
- Tests
- Produits 1
- Année 1
- Année 2
- Année 3
- Produits 2
- Année 1
- Année 2
- Année 3
- Produits 3
- Année 1
- Année 2
- Année 3

Existe-il une solution pour rechercher un fichier dans ce type d'arborescence sans savoir dans quel dossier il est archivé ?

Merci pour votre aide

 

[nat54]

Re : Recherche de fichier dans une arborescence

Je ne sais pas si ca peut t'aider
J'avais réalisé cette macro en stage, pour voir si j'avais tous les fichiers remontés par les centres courrier

	Macro 2 : vérifier la présence d’un fichier dans un répertoire

Sub TesterFichiers()   

mois = Sheets("param").Range("D10").Value  ‘lire le mois de vérification

Sheets("Fichiers_CC").Activate

rep = Range("b2").Value & mois & "\"   'b2 : adresse physique répertoire

Sheets("regate").Select
Range("E2:E1000").Clear  'mettre à 0 les cellules

Range("D2").Activate
regate = ActiveCell.Value  'récupérer code régate en mémoire

Do While ActiveCell.Value <> ""   'boucler tant que D2 est non-vide

fichier = "cc-" & regate & ".xls"   'nom fichier en utilisant code régate présent dans ce nom
Test = rep & fichier  'associer répertoire et fichier

If Dir(Test) <> "" Then   'si un fichier est trouvé

    ActiveCell.Offset(0, 1).Value = "Présent"  'alors le mettre comme présent
    Else
    ActiveCell.Offset(0, 1).Value = "Absent" 'sinon l'afficher en tant qu'absent

End If

ActiveCell.Offset(1, 0).Activate
regate = ActiveCell.Value

Loop

Range("a1").Activate


End Sub

 

[Sly le globe trotter]

Re : Recherche de fichier dans une arborescence

Merci Nat pour ton aide.

Ta macro ne fait pas exactement ce que je cherche. Je voudrais dans la mesure du possible, ne pas associer un répertoire et un fichier mais juste chercher à partir d'un nom de fichier si celui-ci existe dans une arborescence données.