Re,
Oups j'avais oublié que la recherche ne fonctionnait pas . Voici un coe à coller dans un module
On met le nom de fichier en A1, le chemin du dossier en B1, si on veut faire un recherche dans les sous dossiers rajouter True
Option Explicit
Option Base 1
Const Lig = 3 'on mettra les résultats à partie de la ligne 3
Sub Fox()
Dim T
T = ChercheFichier([A1], [B1]) 'ici pour le true
If IsArray(T) Then
With Range("A" & Lig & ":C" & UBound(T, 2) + Lig - 1)
.Value = Application.Transpose(T)
.Sort Range("C" & Lig)
End With
Else: MsgBox "Aucun fichier trouvé"
End If
End Sub
Private Function ChercheFichier(Nomf As String, Rep As String, Optional Sourep As Boolean)
Dim I As Long, Tablo
On Error GoTo Errr
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(3, .FoundFiles.Count)
For I = 1 To .FoundFiles.Count
Tablo(1, I) = .FoundFiles(I) 'niom du fichier
Tablo(2, I) = FileLen(.FoundFiles(I)) ' Taille en octets
Tablo(3, I) = FileDateTime(.FoundFiles(I)) 'Date et heures
Next I
End With
ChercheFichier = Tablo
Errr:
If Err <> 0 Then ChercheFichier = 0
End Function
A+++
