Renommer des fichiers par macros

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

christof.rmc

XLDnaute Nouveau
Bonjour à tous,

Je dois mettre en place une macro qui renomme de manière automatique tous les fichiers d'un dossier. Le nom d'origine des fichiers est construit toujours de la même manière : données + date (ex: données230406). Je voudrais leur donner un autre nom pour qu'il puisse être ouvert par une autre macro (j'ai fait une boucle "for" pour lancer un traitement sur les fichiers). Je souhaite en fait les renommer en leur donnant simplement un numéro, sachant que le nombre de fichiers varient en fonction des mois.

En vous remerciant d'avance pour votre aide

Très bonne journée à tous
Christophe
 
Re : Renommer des fichiers par macros

bonjour christof.mc,

je te propose cette macro à adapter :
Code:
Sub ReName()
Dim myFso As Object, folderAnalysed As Object, curFile As Object
Dim newName As String, folderPath As String
Dim i As Long

folderPath = "E:\aMiki\XLS"

Set myFso = CreateObject("Scripting.FileSystemObject")
Set folderAnalysed = myFso.GetFolder(folderPath)
i = 0
For Each curFile In folderAnalysed.Files
    If curFile.Name Like "données*" Then
        Do
            i = i + 1
            newName = folderAnalysed.Path & "\" & i & ".xls"
        Loop Until Dir(newName) = vbNullString
        Name curFile.Path As newName
    End If
Next curFile
End Sub

a+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour