FileSearch resultat bizarre
bonjour a tous.
apres quelques heures de recherches sur ce forum et ailleurs, je pense avoir trouve la solution a mon probleme en utilisant DIR(). mais je ne comprends pas pourquoi ca ne marche pas FileSearch ne me donne pas le resultat espere.
je recherche un fichier en utilisant FileSearch (Excel 2003). disons qu'a partir de mon tableau Excel, le nombres de fichiers 1001.pdf est recherche. cette macro me renvoie en fait les resutlats d'une recherche *1001.pdf. je ne comprends pas pourquoi. une idee? merci pour par avance
Manu
Code:
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
| Sub Recherche_fichier_dans_emplacement()
Dim i As Long
Dim j As Integer
Dim NomDossierSource, Recherche As String
Dim fs, f, s
'Application.ScreenUpdating = False
NomDossierSource = "D:\Drawings"
Range("F1").Select
LigneDebut = 2
LigneFin = 2 '6797
For i = LigneDebut To LigneFin
Recherche = Range("F" & i).Value & ".pdf"
With Application.FileSearch
.NewSearch
.LookIn = NomDossierSource
.SearchSubFolders = True
.Filename = Recherche
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
Range("G" & i).Value = .FoundFiles.Count
Else: Range("G" & i).Value = "no"
End If
End With
Next i
End Sub |
