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…
Merci beaucoup
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…
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 SubMerci beaucoup