Déplacement d’un fichier après traitement

Bonjour,

Ce que je cherche à faire :

a) Je récupère, dans un répertoire « nouveau », le fichier avec la date la plus récente, (ça marche),

mais, je souhaiterais trouver le fichier avec la date la plus ancienne (pas trouvé la solution).

b) Je réalise la procédure souhaité … (ça marche)

c) Je voudrais déplacer le fichier qui vient d’être traité vers un autre répertoire « ancien » sans changer le nom de mon fichier (fichier non modifier puisque encore dans le répertoire (nouveau). (pas trouvé la solution)

d) Je recommence en (a) afin de traiter tous les fichiers du répertoire « nouveau » ( ça OK)

Voici le code que j’utilise pour la récupération du fichier le plus récent :

Option Explicit
Public Plus_recent_nom As String

'codes  pour la recherche automatique du fichier le plus récent 

Sub Cherche_auto1()

Dim Répert1 As Object
Dim Syst_fic As Object
Dim Fic1 As Object
Dim Fic_nom As String
Dim Fic_acces As Date
'Dim Plus_recent_nom As String
Dim Plus_recent_date As Date
Dim Répertoire1 As String
Set Syst_fic = CreateObject("Scripting.FileSystemObject")
'Stop
'Nom du répertoire à scanner
Répertoire1 = "C:\Users\Jean Mi\nouveau\"
Set Répert1 = Syst_fic.GetFolder(Répertoire1)
For Each Fic1 In Répert1.Files
    Fic_nom = Fic1.Name
    'on ne s'interresse qu'au fichier ".jpg"
    If Right(LCase(Fic_nom), 4) = ".jpg" Then
        Fic_acces = Fic1.datelastaccessed
        If Fic_acces > Plus_recent_date Then
            Plus_recent_date = Fic_acces
            Plus_recent_nom = Fic_nom
        End If
    End If
Next

If Plus_recent_nom <> "" Then
    MsgBox "le fichier le plus récent est : " & Plus_recent_nom  
Else
    MsgBox "Pas de fichier trouvé"  
End If
MsgBox " Près pour déplacer le fichier qui a été traité ? "

deplacement_du_fichier ‘ lancement de la macro à créer vers le répertoire (ancien)

End Sub

Merci pour l’aide

Bien cordialement