Discussion :

[tit-doudou]

Bonjour à tous,

J'ai parcouru un peu les différentes discussion mais je n'ai pas trouvé de réponse à mon problème.

Je souhaiterais réaliser une recherche de fichiers en utilisant une macro qui défini un chemin de recherche.

Par exemple, j'ai 3 fichiers dans un dossier sur mon bureau (Classeur001, Classeur002, Classeur003 dans le dossier "Test") et j'aimerais effectuer une recherche en utilisant seulement le mot "classeur" afin d'afficher les 3 fichiers.

En espérant avoir été clair, je vous remercie d'avance.

[Didier Gonard]

Bonjour et bienvenue sur DVP,

vois ici et dans le reste de la FAQ pour ton besoin et reviens avec ton code (entre balise si problème).

cordialement,


Didier

[tit-doudou]

Bonjour,

J'ai avancé un petit peu en parcourant la toile, j'ai réussi a faire une recherche en affichant les résultat dans une MsgBox. J'ai essayé de modifier le programme pour afficher dans une fenêtre windows mais je n'ai pas réussi. Voici mon programme :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub FileSearch()
 
        'Programme de recherche de fichiers en indiquant le nom complet ou partiel du/des fichier(s) ainsi que le chemin
 
With Application.FileSearch
    .NewSearch
 
        'Indication du chemin :
 
    .LookIn = "C:\Bureau\test"
 
        'Recherche dans les sous dossier du chemin :
 
    .SearchSubFolders = True
 
        'Nom du fichier, ici nom partiel :
 
    .Filename = "Test"
 
        'Type de fichiers recherchés :
 
    .FileType = msoFileTypeAllFiles
    If .Execute() > 0 Then
 
        'Les résultats s'affichent en MsgBox :
 
        MsgBox "Il y a " & .FoundFiles.Count & _
        " fichier(s) trouvé(s)."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "Désolé, votre recherche a échouée."
    End If
End With
End Sub

Il faudrait juste changer la fin du programme en demandant une ouverture des fichiers trouvé dans un dossier.

Merci d'avance pour votre aide

[Didier Gonard]

Bonjour,

Ne continue pas dans cette voie, FileSearch est incompatible avec Excel 2007 !

vois ici : Manipulation des fichiers en VBA

vois ici : Un complément FileSearch pour Excel 2007

vois ici l'emploi de Dir (attention c'est du VB, pas du VBA, mais beaucoup de choses sont communes), voir aussi l'aide vba sur Dir.

Sommaire > Système > Fichiers
Comment savoir si un fichier existe ?
Comment compter les fichiers dans un répertoire ?
Comment savoir si un fichier est ouvert ?

cordialement,

Didier