Sub chgtnom()
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Scripting.Folder
Dim oFl As File
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
repertoire = "D:\Test Macro\"
' valeur 145
valeur = ActiveSheet.Cells(2, 2).Value
' Verifie que le répertoire existe
If oFSO.FolderExists(repertoire) Then
Else
i = MsgBox("Le repertoire est inexistant" & Chr(10) & "Verifier le chemin", vbOKOnly, "Et non !")
Exit Sub
End If
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx recherche et traitement des fichiers xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Accède au répertoire du départ de recherche
Set oFld = oFSO.GetFolder(repertoire)
' pour chaque fichier ...
For Each oFl In oFld.Files
' de type DOC
If UCase(Right(oFl.Name, 3)) = "doc" Then
' pas déja traité
If InStr(oFl.Name, Right(Str(valeur), Len(Str(valeur)) - 1)) <> 0 Then
oFl.Name = Left(oFl.Name, Len(oFl.Name) - 4) & "_" & Right(Str(valeur), Len(Str(valeur)) - 1) & ".doc"
End If
End If
Next
End Sub