Renommer un fichier Excel [Résolu/Fermé]

Signaler
-
 Yunasthar -
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

3 réponses

Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 672
Bonjour,

Ferme le fichier concerné
Copie et exécute ce code dans un nouveau 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


Cordialement
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 455
bonjour

Pourquoi ne pas paramétrer l'outil de gestion (BPC) en faisant cette modification ?
Merci beaucoup!
Ca a résolu mon soucis.

Cordialement,

Yunasthar