XL 2010 Renommer fichier en y ajoutant 2 textes differents

re4

XLDnaute Occasionnel
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
Tableau 1.JPG

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.
tableau 2.JPG
tableau 3.JPG

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…
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 927
Messages
2 093 693
Membres
105 785
dernier inscrit
circes21