Renommer fichiers avec n° d'ordre

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

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 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

Salut,

Si je t’ai bien compris, voici déjà un point de départ.

Sur la Feuil1 se trouve un bouton qui te permet de renommer les textes concernant les fichiers sur la Feuil2 à l’aide du bouton mis en place.

Ensuite si tu désires aller renommer les fichiers à leur place dans l’arborescence ou en faire des copies renommées, je présume qu’il serait plus simple de définir le dossier source et le dossier cible directement dans la macro. Enfin, j’aurais plus de courage à m’y lancer à cette condition. Sinon tant pis, tu devras éventuellement compter sur l’aide de quelqu’un d’autre ou être très patient.

Cordialement.

Bonjour,

Merci pour ta réponse, ta macro fait exactement ce que je voulais (en partie et principale le renommage et le classement.

Effectivement si c'est trop long à faire je me contenterai dans un 1er temps de ta solution des repertoires en ''dur'' en attendant d'une solution plus pratique car le dossier n'est jamais le même et surtout le fichier Excel est utilisé par le club par des néophytes en informatique.

Bonne journée

Salut,

Avec l’aide du Forum, plus particulièrement de These que je remercie à nouveau ici , j’ai pu continuer à travailler sur ton projet.

Dans le fichier ci-joint, tu dois indiquer en G1 de la Feuil1 le chemin auquel se trouvent tes images de base. Si cette partie est fastidieuse, par exemple car ce chemin change chaque fois, on pourrait voir comment l’indiquer autrement (peut-être comme on indique le nouveau chemin du dossier de destination ci-dessous).

Ensuite, lorsque tu lances la macro, ça te demande dans quel dossier tu veux placer les copies d’image et le tour est joué.

Bonnes salutations.

Bonjour,

Avec du retard,

Merci beaucoup