tototiti2008
XLDnaute Barbatruc
Bonjour,
Je recherche un grand nombre de fichiers dans un dossier précis et ses sous-dossiers.
J'ai recherché sur le net et j'ai abouti à ce code :
Il semble qu'il recherche (c'est long) mais il ne trouve aucune réponse.
Pour les arguments Value et SeconValue, j'ai essayé des dates au format français, américain, des variables de type date... toujours aucun résultat.
Faudrait-il que j'active une Référence ?
Si je met la ligne .PropertyTests en commentaire, il me trouve tous les fichiers sans problème, mais impossible de la faire fonctionner.
Si quelqu'un a des infos sur le sujet...
Merci d'avance. 🙂
Je recherche un grand nombre de fichiers dans un dossier précis et ses sous-dossiers.
J'ai recherché sur le net et j'ai abouti à ce code :
Code:
Sub Cherche()
Dim RechFic As FileSearch, i As Long
Set RechFic = Application.FileSearch
With RechFic
.NewSearch
.LookIn = "C:\temp"
.Filename = "*.*"
.SearchSubFolders = True
.PropertyTests.Add Name:="Entre", Condition:=msoConditionAnytimeBetween, _
Value:="3/10/2008", SecondValue:="4/30/2008", Connector:=msoConnectorAnd
.Execute
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End With
End Sub
Il semble qu'il recherche (c'est long) mais il ne trouve aucune réponse.
Pour les arguments Value et SeconValue, j'ai essayé des dates au format français, américain, des variables de type date... toujours aucun résultat.
Faudrait-il que j'active une Référence ?
Si je met la ligne .PropertyTests en commentaire, il me trouve tous les fichiers sans problème, mais impossible de la faire fonctionner.
Si quelqu'un a des infos sur le sujet...
Merci d'avance. 🙂