Bonjour le forum,

J'essaie de réaliser un code qui me permettrait à l'initialisation de ma UserForm de mettre dans ma ComboBox les 5 derniers clsseurs modifiés d'un répertoire.

J'essaie ceci mais il ne me renvoie pas les derniers modifiés:

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
Private Sub UserForm_Initialize()
Dim Fs As FileSearch
Dim Dossier As String
Dim I As Integer
Dim VoirDir As String
On Error Resume Next
Set Fs = Application.FileSearch
Dossier = "C:\Documents And Settings\Chewi\Desktop\ESSAIS"
With Fs
.NewSearch
.Filename = "*.xls"
.LookIn = Dossier
.SearchSubFolders = False
.Execute msoSortByLastModified, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To 5 '.Count
UfCompleter.ComboBox1.AddItem Dir(.Item(I))
Next I
End With
End If
End With
Set Fs = Nothing
Dossier = ""
End Sub
Que j'essaie avec msoOrderAscending ou Descending, cela ne change rien aux valeurs renvoyées.

Que n'ai-je de nouveau pas compris?

Merci à vous