Microsoft 365 Tri dans une Listbox

[rubis54]

Bonjour tout le monde,

j'ai 3 classeurs et dans chacun il y a un usf "recherche archives" . Mais j'ai un soucis avec un seul car lorsque je l'ouvre et que je choisis le dossier d'archives à consulter, il affiche tout mais pas dans l'ordre des dates.

Les deux autres usf fonctionnent très bien, alors que c'est le même code ! Voici le code :
Private Sub CbxArchive_Change()
Me.ListBox1.Clear
Me.répertoire = ""
If Me.répertoire = "" Then Me.répertoire = ThisWorkbook.Path & "\" & Me.CbxArchive.Value
Dim Tbl(), nf, n
nf = Dir(Me.répertoire & "\*.*")
n = 0
Do While nf <> ""
n = n + 1
ReDim Preserve Tbl(1 To 2, 1 To n)
Tbl(1, n) = nf
Tbl(2, n) = Format(FileDateTime(Me.répertoire & "\" & nf), "dd/mm/yyyy hh:mm")
nf = Dir
Loop
If n > 0 Then
If n > 1 Then
Me.ListBox1.List = Application.Transpose(Tbl)
Else
Dim aa(1 To 1, 1 To 2)
aa(1, 1) = Tbl(1, 1): aa(1, 2) = Tbl(2, 1)
Me.ListBox1.List = aa
End If
End If
Me.TextBox1 = Me.ListBox1.ListCount & IIf(Me.ListBox1.ListCount > 1, " Archives", " Archive")
If n = 0 Then
Exit Sub
End If

Auriez-vous une idée pour ce problème .

Merci d'avance.
Cdt Rubis

 

[patricktoulon]

Bonjour
A aucun moment tu tri par la date dans ton code
La fonction dir te renvoie les nom de fichier tel qu' il sont triés dans le dossier
Donc soit tu le tri par date dans son dossier soit tu utilise une fonction de tri

 

[rubis54]

Bonjour
A aucun moment tu tri par la date dans ton code
La fonction dir te renvoie les nom de fichier tel qu' il sont triés dans le dossier
Donc soit tu le tri par date dans son dossier soit tu utilise une fonction de tri

Bonjour Patrick

OK ça marche .
Merci beaucoup.

Cdt Rubis