Discussion :

[re]

Bonjour,
Pouvez-vous 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
Image
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 à 3 chiffres+ note + nom du fichier original. (voir fichier joint)
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.

Idéalement il faudrait aller choisir par l'explorateur le répertoire des photos originales et copier les nouveaux fichiers renommés dans un autre répertoire à sélectionner lui aussi.
Il est important que le renommage se fasse dans une cellule avec Concaténer (ça me permet d'y ajouter d'autre infos par exemple l'auteur)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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