Discussion :

[casefayere]

Bonjour,

j'ai fait une procédure afin de rechercher des fichiers qui contiennent le résultat d'un inputbox dans leur nom mais je ne sais pas comment attribuer l'inputbox à la recherche, voici mon code :

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
Sub chercherfichiers2()
Dim rechfic As Office.FileSearch
Dim vanomfichier As Variant
Dim stmessage, message As String
Dim i As Long
Dim inombre As Long
  With Application.FileSearch
'd'abord réinitialiser les critères (Attention : Le LookIn ne se réinitialise pas comme ça)
    .NewSearch
'Pour mettre à jour la liste des dossiers, au cas ou on viendrait de créer un nouveau dossier par VBA :
    .RefreshScopes
'Dossier(s) de recherche :
    .LookIn = "g:\bruno\dossier terroir\"
message = InputBox("rechercher fichier contenant :")
'Fichiers à rechercher
.Filename = "message.xls" 'recherche tous les fichiers qui contiennent c ou C quelque par dans leur nom, et qui se terminent par .php ou .PHP    .FileType = msoFileTypeAllFiles
'Tous les fichiers créés ou modifiés cette semaine :
    .LastModified = msoLastModifiedAnyTime
'On va rechercher dans les sous dossiers :
    .SearchSubFolders = True
'c'est parti :
    'procède à la recherche et capture le nombre de fichiers trouvés
    inombre = .Execute
    stmessage = Format(inombre, "0 ""fichiers trouvés""")
    'repertorie les fichiers dans la collection foundfiles
    For Each vanomfichier In .FoundFiles
    stmessage = stmessage & vbCr & vanomfichier
    Next vanomfichier
    MsgBox stmessage
 
  End With
End Sub

Si quelqu'un pouvait m'aider....

Merci a+

[Qwazerty]

SAlut
J'ai juste jeté un coup d'oeil mais je pense que c'est cette ligne qui ne va pas

Code :

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

 .Filename = "message.xls"

message est une variable dan ton code, si tu l'a met entre guillement ca devient juste du texte, si tu veux faire reference au text contenu dans message
il faut faire comme ca

Code :

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

 .Filename = message + ".xls"

Attention cela va te faire une recherche exact si tu veux plus de flexibilité il te faudra rajouter des *

Code :

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

 .Filename = "*" + message + "*.xls"

Par exemple


[Edit]

j'ai fait une procédure afin de rechercher des fichiers [...]

On dit j'ai recopié une procedure, que j'ai modifiée pour qu'elle[...] , je vient de remarquer le commentaire placé a coté de la ligne en question
[/Edit]

A++
Qwaz

[casefayere]

bonjour et merci Owazerty,

ce n'est pas la prmeière fois que tu me dépannes, ça marche impeccable.
Excuses-moi pour les termes que j'emploie

a +