Renommer des fichiers par macros

[christof.rmc]

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

 

[mromain]

Re : Renommer des fichiers par macros

bonjour christof.mc,

je te propose cette macro à adapter :

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+

 

[christof.rmc]

Re : Renommer des fichiers par macros

Merci beaucoup