Changer la terminaison des fichiers

J'ai des fichiers par exemples qui sont des noms comme suit :

fatal.001

fatal.002

fatal.003

fatal.1000

fatal.1001

et je veux que qu'on j'arrive a fatal.1000 une macro qui change le 1000 en A00 et 1001 en A01 ... ainsi de suite

Est ce que vous pouvez m'aider c'est urgent pour moi

Merci

bonjour

donc avant 1000 on laisse l'extension telle quelle,

à partir de 1000 on remplace le 10 par A

que faut-il faire à partir de 1100 ? A100 ou B00 ou ..

proposition pour option B00 (valable pour des extension allant de 1000 à 2699)

Sub renext()
    chemin = "d:\downloads\test\" '<- à adapter
    f = Dir(chemin & "*.*")
    Do While f <> ""
        s = InStrRev(f, ".")
        ext = Mid(f, s + 1)
        If ext Like "####" Then 'extension contient 4 chiffres ?
            fext = Right(ext, 2)
            lext = Left(ext, 2) + 55 '10 ->A 11 ->B 12-> etc ..
            ext = Chr(lext) & fext
            nf = Left(f, s) & ext
            Name chemin & f As chemin & nf
        End If
        f = Dir
    Loop
End Sub