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

3 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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
  2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

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

    Cordialement,

    Yunasthar
    0