Renomer des fichers à partir d'une liste

Résolu
LAMBDA -  
 LAMBDA -
Bonjour,

Je cherche à remplacer les noms d'une liste de fichiers par une autre grâce à excel ou n'importe quels autres logiciels.
J'ai déjà essayé:
Art Renamer
Renamer
THE rename
Mais pour l'instant je n'ai pas trouvé.
Pour excel:
J'ai une colone A qui contient ab,cd,ef,gh et dans ma colone B j1,k2,k8,b9,c12.
La Colone A correspond au nom de chaque fichiers de la liste que je voudrais changer et la colone B au nouveaux nom que j'aimerai leur donnés.
Le répertoire Windows ou sont situées les fichiers est C:/USERS
Tout les fichiers portent l'extension docx.
Vous pensez que c'est possible?

J'ai fait un pitit schéma aussi au cas ou:
http://www.hostingpics.net/viewer.php?id=307479CCM.jpg

Voila j'espère avoir été clair.
Merci d'avance.
Bonne soirée

5 réponses

Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Je ne pense pas que ce soit possible ...

... sauf peut-être par macro (à voir avec ceux pratiquent VBA).
0
contrariness Messages postés 21227 Date d'inscription   Statut Membre Dernière intervention   6 183
 
Art Renamer devrait tres bien le faire, puisqu'il est possible d'associer un nom de fichier contenu dans une cellule d'Excel a un fichier sur le HD..

Cependant c'est un programme qui le fait dans l'ordre dans lequel se trouve les ficheirs dans le dossier, il est donc possible qu'il soit necessaire de trier voir de renommer de maniere numerique les fichiers dans le repertoire avant de faire le changement de nom.
Pour renommer et le tris, vous avez TotalCommander.

Brs Raymond, bonnes fetes de fin d'annee
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Au passage une piste par ici !

0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Essayer la procédure ci-après.
Admis début des listes en ligne 2 avec colonne[A] ancien nom et colonne [B] nouveau nom.
En plus répertoire en [E2] et extension des fichiers en [D2].
La procédure :
Sub renommer_fichier()
Dim fso As Object, fgf As Object, c As Integer, deli As Integer
Dim cherep As String, chenomact As String, ext As String, nouvnom As String
Set fso = CreateObject("Scripting.FileSystemObject")
cherep = Range("E2") & "\"
ext = "." & Range("D2")
deli = Cells(Rows.Count, 1).End(xlUp).Row
For c = 2 To deli
chenomact = cherep & Cells(c, 1).Value & ext
nouvnom = Cells(c, 2).Value & ext
Set fgf = fso.GetFile(chenomact)
fgf.Name = nouvnom ' Nouveau nom du fichier
Next c
Set fso = Nothing
Set fgf = Nothing
End Sub

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
LAMBDA
 
Parfait.
Ça marche à merveille.


Un grand merci Le Pingou!
Merci aussi pour les autres réponses.
+++
0