Renommer par macro un fichier Excel

Bonjour,

J'utilise un outil de gestion (BPC) qui m'édite des rapports Excel sous cette forme :

TOTO)TATA)TITI.xls

Je voudrais pouvoir remplacer les parenthèse par des underscore pour avoir un nom de fichier sous cette forme :

TOTO_TATA_TITI.xls

Est-il possible de faire cette transformation par macro?

Merci de votre aide!

Yunasthar

Bonjour et bienvenue sur le forum yunasthar,

Oui c'est possible. Essaie avec cette macro :

Sub renomme()
Dim chemin As String, ancienNom As String, nouveauNom As String, i As Long
Dim objShell As Object, strFileName As Object, objFolder As Object, colItems As Object

    chemin = ActiveWorkbook.Path    'répertoire à définir (par défaut : celui du classeur actif)
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(CStr(chemin))
    Set colItems = objFolder.Items

    '*** Boucle sur les fichiers du dossier cible
    For Each strFileName In colItems
        If strFileName.IsFolder = False Then
            ancienNom = chemin & "\" & strFileName
            nouveauNom = chemin & "\" & Replace(strFileName, ")", "_")
            Name ancienNom As nouveauNom
        End If
    Next strFileName

End Sub