XL 2010 Renommer fichier en y ajoutant 2 textes differents

[re4]

Bonjour,
Pouvez m’aider pour réaliser ceci :
Dans un feuille Excel j’ai extrait les noms des photos avec l’extension, ex : photo_001.jpg
Dans cette même feuille l’on note les photos

Une fois toutes les photos notées il faudrait renommer les fichiers photos avec un classement de la note la plus élevées à la moins élevée => n° d’ordre + note + nom du fichier original.
Si trop compliqué ou pas fiable, l’on ne mettra que la note devant le fichier, sans compter qu’il y aura des exæquos pour l’instant on ne le gère pas.

Le nouveau nom peut être ajouté dans une colonne du 1er fichier en concaténant le nom d’origine + ‘’-‘’ + la note
Idéalement il faudrait aller choisir le répertoire des photos originales et copier les nouveaux fichiers renommés dans un autre répertoire à sélectionner lui aussi.

J’ai trouvé cette macro mais elle n’est pas complète et je ne suis pas assez spécialiste pour aller plus loin…

Sub test2()
Set Fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = Fso.GetFolder("C:\Users\Utilisateur\Pictures\Test")
Set fichiers = repertoire.Files
For Each f In fichiers
    f.Name = Cells(Application.WorksheetFunction.Match(f.Name, Range("a:a"), 0), 2).Value
Next
End Sub

Merci beaucoup

 

[re4]

Désolé il y a quelques fautes, je n'ai pas trouvé comment modifier après envoi !

 

[Joël GARBE]

Bonjour

Il y a un bouton "Editer" sous le message après envoi....