Changer le nom de très nombreuses photos via une DB excel Résolu/Fermé

Question

Bonjour, 

J'ai une question assez spécifique, qui après de nombreuses recherches sur internet ne trouve toujours pas de réponse. J'espère que vous pourrez m'aider. 

Je dispose d'une base de données sous format excel de 3500 lignes, avec sur chaque ligne le nom d'une personne associé à un nom/numéro de photo (le nom de chaque photo est donc un numéro à 10 chiffres).

A coté de ça, je dispose d'un fichier de 3500 photos, chacune portant comme nom le numéro mentionné dans le tableau excel en question.

J'aimerais que le nom/numéro de chaque photo soit remplacé par le nom de la personne correspondante dans le tableau excel, sans pour autant avoir à changer le nom les 3500 photos à la main :)

Vous avez une idée de comment faire ça ? Et même si c'est possible ?

Merci d'avance pour votre aide ! 

Vap



Configuration: Windows 7 / Chrome 33.0.1750.154

jee pee · Answer

Salut,

Je pense que tu veux modifier le nom de la photo dans le fichier Excel MAIS AUSSI le nom du fichier photo lui même non ?

Cdlt

Vap · Answer

Oui, mon explication  n'est peut-être pas très claire : je veux modifier le nom de chaque photo (les 3500 donc). 

Pour l'instant chaque photo porte un nom qui est un numéro à 10 chiffres, numéro que l'on retrouve dans mon tableau excel associé à un nom de personne. J'aimerais que pour chaque photo, ce numéro soit remplacé par le nom  de la personne associée...

Je n'ai pas spécialement besoin de modifier le nom dans le fichier excel :)

jee pee · Answer

C'est relativement simple, si tu as quelques outils. Plus dur à expliquer.

En gros depuis le fichiers excel tu fais un fichier texte csv qui aura la forme ;

001.jpg;jeepee.jpg

avec un editeur tu en fais un fichier de commande :

mv 001.jpg jeepee.jpg

Si tu veux je peux te le faire si tu déposes ton fichier excel quelque part.

foo · Answer

Bonjour

a toi de faire la boucle pour rernomé tous les fichiers

Sub Rename()
   AncienNom = ThisWorkbook.Path & Application.PathSeparator & "HH.gif"
   NouveauNom = ThisWorkbook.Path & Application.PathSeparator & "H.gif"
   Name AncienNom As NouveauNom
End Sub

A+

Maurice

Vap · Answer

Bonjour, 

Merci pour les infos, jee pee. Pour le coup, la notion d' "éditeur" et de fichier de commande est floue pour moi, c'est dire comme je pars de loin.

Si tu as le temps de me filer un coup de main, voici le fichier : 

http://www.partage-fichiers.com/upload/x9jvsny7/ 


Maurice, pareil, je suis loin d'être assez calé pour comprendre ce que tu me conseilles... C'est une boucle que je dois configurer dans quel logiciel précisément ?

jee pee · Answer

Récupère ce fichier texte : https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download

Pour ne pas prendre de risques, tu fais une copie de toutes tes photos dans un nouveau répertoire. Dans ce nouveau répertoire tu places le fichier ren_photos.txt , tu le renommes en ren_photos.bat et tu double-cliques dessus pour l'exécuter.

Vap · Answer

Mais... Mais c'est merveilleux !

Merci beaucoup jee pee, ca a marché nickel. 

Si tu as le temps de m'expliquer comment tu as fait (pour préparer le fichier text a partir du fichier excel) et quels outils je dois avoir pour le faire (je vais être amené à le refaire à l'avenir), ce serait parfait.

Dans tous les cas, merci beaucoup !

Simon

foo · Answer

Bonjour

http://cjoint.com/?3Dik21QUJYk

Voila ton fichier avec la macro rename

A+

Maurice

Vap · Answer

Merci beaucoup ! 

Il me suffit de changer les lignes et le nom du répertoire , le macro restera fonctionnel pour  d'autres fichiers ? Et le fichier excel avec le macro doit il se trouver dans un emplacement spécifique pour qu'il fonctionne.

Merci encore dans tous les cas, ça va grandement me faciliter la tache...

Changer le nom de très nombreuses photos via une DB excel

9 réponses

Discussions similaires