Supprimer ancien fichiers => confirmation si ok

Bonjour à tous,

j'ai un script fonctionnel me permettant de sauver un fichier sur un serveur

   FileCopy chemin, Destination & "copie.xlsm"
nom = Format(Now(), "mm.dd.yy")
Name Destination & "copie.xlsm" As Destination & "Tbd_Projets au " & nom & ".xlsm"

ma question est désormais comment procéder afin de supprimer les anciennes versions dont je ne connais pas forcement la date

je sais bien que la fonction kill me permet de supprimer mais avant d'utiliser le script ci-dessous, je voudrais m'assurer qu'il ne fasse pas de connerie sur mes autres fichiers...

s = Dir(Destination & "Tbd_Projets au" & "")

If FileDateTime(Destination & s) < Date Then Kill Destination & s

merci par avance de m'indiquer si script ok ou pas!

Bonne journée

Bonjour

Essaie ça :

Sub Supprimer()
    Dim Destination$, s$, rep&

    Destination = ThisWorkbook.Path & "\"
    s = Dir(Destination & "Tbd_Projets au*")

    If FileDateTime(Destination & s) < Now Then
        rep = MsgBox("Confirmez-vous la suppression de " & s & " du " & FileDateTime(Destination & s), 1)
        If rep = 1 Then
            Kill Destination & s
        End If
    End If
End Sub

Bye !

Merci à vous fonctionne parfaitement comme cela!

la confirmation amène une sécurité en plus aussi merci au passage!