Trier des fichiers

[Troudz]

Bonsoir tout le monde,

Voilà j'ai créé un système de journal quotidien qui me garde les infos du jour qui vient de s'écouler. L'embêtant, c'est qu'à force, tout cela prend de la place.

Tous mes fichiers s'appellent : "Journal du dd/mm/yyyy hh:mm:ss.xls" et sont sauvegardés dans le même répertoire (avec d'autres fichiers).

Comment pourrais je faire pour que, lors de l'enregistrement d'un nouveau journal, il ne garde que les 5 plus récents et effacent tous les autres.

J'ai essayer beaucoup de choses mais je ne suis vraiment pas doué avec les manipulations de fichiers...

Je remercie d'avance ce qui veulent bien me donner un petit coup de main.

 

[kjin]

Re : Trier des fichiers

Bonsoir,

Tous mes fichiers s'appellent : "Journal du dd/mm/yyyy hh:mm:ss.xls"

Là je m'étonne...!
A+
kjin

 

[Hippolite]

Re : Trier des fichiers

Bonjour,
Il nous faudrait l'intitulé exact des noms.
Celui que tu donnes est interdit !
A+

 

[Troudz]

Re : Trier des fichiers

Vous avez raison, je suis désolé.
J'ai écris en pensant à autre chose ^^
Le nom de mes fichiers est : "Journal du yyyymmdd hhmm.xls"

Excusez moi pour le dérangement.

 

[kjin]

Re : Trier des fichiers

Bonsoir,
Macro utilisant la date de création des fichiers...
Attention, utilise l'instruction kill, donc sans retour possible...

Sub killJournal()
Dim fso, f, T() As Variant, x%, i%, j%, k%
Set fso = CreateObject("Scripting.FileSystemObject")
rep = "X:\...\...\" 'adapter le chemin sans oublier le dernier anti-slash
nf = "Journal du*"
f = Dir(rep & nf)
Do While f <> ""
    x = x + 1
    ReDim Preserve T(1 To 2, 1 To x)
    T(1, x) = fso.GetFile(rep & f).DateCreated
    T(2, x) = f
    f = Dir
Loop
If x <= 5 Then Exit Sub
For i = 1 To UBound(T, 2)
    j = i
    For k = j + 1 To UBound(T, 2)
        If T(1, k) <= T(1, j) Then j = k
    Next k
    If i <> j Then
    v1 = T(1, j): v2 = T(2, j)
    T(1, j) = T(1, i): T(2, j) = T(2, i)
    T(1, i) = v1: T(2, i) = v2
    End If
Next i
For i = 1 To UBound(T, 2) - 5
    Kill rep & T(2, i) 'attention irrémédiable !
Next
Set fso = Nothing
End Sub

A+
kjin

 

[Troudz]

Re : Trier des fichiers

Merci beaucoup pour cette macro Kjin.

Je teste ça dès demain.

Bonne soirée