Renommer des fichier

Bonjour,

Voir ceci:

https://excel-malin.com/tutoriels/vba-tutoriels/manipulation-basique-des-fichiers-en-vba/

Bonjour,

Tu peux déjà commencer par s'inspirer de ce code
https://www.extendoffice.com/documents/excel/2339-excel-rename-files-in-a-folder.html

Bien entendu, au lieu d'aller chercher les noms de fichiers dans une colonne d'excel il faut modifier le code pour correspondre à tes besoins.

ça pourrait ressembler à un truc du genre

<code basic>
Sub RenameFiles()
  Dim xDir As String
  Dim xFile As String
  Dim xRow As Long
  Dim nouveauNonFichier as String

    xDir = "c:\chemin\vers\les\fichiers"
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
          nouveauNonFichier = "jetelaissechercher" 'Ici tu dois mettre le nouveau nom du fichier
          Name xDir & Application.PathSeparator & xFile As  xDir & Application.PathSeparator & nouveauNonFichier
         xFile = Dir
    Loop
End Sub

</code>

Pour trouver la date de modification d'un fichier par exemple tu peux utiliser le FSO

Function FileLastModified(strFullFileName As String)
    Dim fs As Object, f As Object, s As String
     
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(strFullFileName)
     
    s = UCase(strFullFileName) & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    FileLastModified = s
     
    Set fs = Nothing: Set f = Nothing
     
End Function

Je te laisse compléter....
reviens nous voir avec ton code si jamais tu ne rencontres des soucis.