Renommer un fichier Excel

Option Explicit

Sub Test()
Dim NomFichier As String

    'Sélection du fichier
    On Error Resume Next
    Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
    Application.FileDialog(msoFileDialogFilePicker).Show
    NomFichier = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
    If NomFichier = "" Then Exit Sub
    On Error GoTo 0
    
    'Renommer le fichier
    On Error GoTo ErrorHandler
    Name NomFichier As Replace(NomFichier, ")", "_")
    Exit Sub
    
ErrorHandler:
    MsgBox Err.Description & vbCr & vbCr & " Le fichier à renommer doit être fermé."
  
End Sub