Renommer un fichier Excel

Résolu
Yunasthar -  
 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
A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
Réponse 2 / 3
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 728
 
bonjour

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

Cordialement,

Yunasthar
0