Autres Renommage avec sufixe et préfixe

Sub BoucleSurFichiers()
    Dim Chemin As String, Fichier As String
 Dim StrExt$
    'Définit le répertoire contenant les fichiers
    Chemin = ThisWorkbook.Path & "\" 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls*")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers :
'    Fichier = Dir(Chemin & "*.*") 
    Do While Len(Fichier) > 0
      StrExt = Right(Fichier, Len(Fichier) - InStrRev(Fichier, ".") + 1)
      If Fichier Like "######" & StrExt Then
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
'        Debug.Print Chemin & Fichier
       Name Chemin & Fichier As Chemin & "O19-" & Mid(Fichier, 1, InStr(1, Fichier, ".") - 1) & "-99" & StrExt
      End If
        Fichier = Dir()
    Loop
End Sub

Sub Macro1()
Dim D As String 'déclare la variable D (Dossier)
Dim F As String 'déclare la variable F (Fichier)
Dim N As String 'déclare la variable N (Nom)
Dim E As String 'déclare la variable E (Extension)
Dim NN As String 'déclare la variable NN (Nouveau Nom)

D = "X\secur3\Renommage\" 'définit le dossier D
F = Dir(D & "*.xls*") 'définit le premeir fichier excel du dossier D
Do While F <> "" 'agit tant que F n'est pas vide (tant qu'il existe des fichiers F)
    N = Split(F, ".")(0) 'récupère le nom N (sans l'extension)
    E = Split(F, ".")(1) 'récupère l'extension E
    NN = "O19-" & N & "-99." & E 'définit le nouveau non NN
    If Left(N, 3) <> "O19" Then Name D & F As D & NN 'si F ne commence pas pas "O19", renomme F
    F = Dir 'définit le fichier suivant du dossier D
Loop 'boucle
End Sub