Discussion :

[ancel17]

Bonjour,

Mon problème est le suivant :
Je voudrais pouvoir à partir d'un dossier dont le chemin d'accès est connu parcourir tous les sous-dossiers compris dans ce dossier pour trouver tous les fichiers Excel dont le nom contient DSCP et 23-05-08.

Exemple :
chemin = \\Senthag03\partage\Acc\Projet\Cost\SUIVI INGENIERIE PAR AFFAIRE

Tous les fichiers recherchés se trouvent quelque part dans ce dossier, mais il peut y avoir plusieurs sous-dossiers intermédiaires (1 minimum)

Le but est d'imiter le fonctionnement de "Rechercher" de Windows accessible depuis le "Menu Démarrer", en basant la recherche sur chemin.

J'espère avoir été assez clair...

Merci de votre aide !

[mayekeul]

bonjour,

une petite chose dans le style devrait t'aider

il faut ajouter une référence à microsoft scripting runtime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim FSO As New FileSystemObject
Dim Fo As Folder, Fi As File
Dim Papat As String, strSearch(1) As String
 
'Dossier de départ
Papat = "\\Senthag03\partage\Acc\Projet\Cost\SUIVI INGENIERIE PAR AFFAIRE"
'Parties de nom à rechercher
strSearch(0) = "DSCP": strSearch(1) = "23-05-08"
 
For Each Fo In FSO.GetFolder(Papat).SubFolders
    For Each Fi In Fo.Files
        If InStr(Fi.Name, strSearch(0)) Then
            If InStr(Fi.Name, strSearch(1)) Then Debug.Print f.Name
        End If
    Next
Next
 
End Sub

[ancel17]

Nickel !

ça marche du feu de Dieu !!!

juste une petite correction dans le code :
remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print f.Name

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Fi.Name

Merci !

[mayekeul]

ça marche du feu de Dieu !!!

si vite que ça?

juste une petite correction dans le code :

juste, je m'ai pas relu

un pti click sur ?

[ancel17]

Très juste !

Dans ma hate, je l'ai zappé...
Une fois n'est pas coutume !

[ancel17]

Autant pour moi...

le code proposé fonctionne effectivement du feu de Dieu, mais uniquement dans le cas où il n'y a qu'un niveau de sous-dossier...

Problème :
Je voudrais aller fouiller dans tous les sous-dossiers des sous-dossiers des sous-dossiers... du dossier de base !