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 : 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
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