Renommer un fichier Excel
Résolu/Fermé
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
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:
- Comment renommer un fichier excel
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Renommer fichier en masse - Guide
- Liste déroulante excel - Guide
3 réponses
Patrice33740
Messages postés
8561
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
15 mars 2025
1 779
22 août 2010 à 23:56
22 août 2010 à 23:56
Bonjour,
Ferme le fichier concerné
Copie et exécute ce code dans un nouveau fichier Excel
Cordialement
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
