Renommer des photos a partir d'un fichier Excel

[SAGARO2]

Bonjour,
D'un côté j'ai une serie de photos prise dans un ordre alphabétique et de l'autre un fichier Excel avec des noms dans un ordre alphabétique. Je voudrais pouvoir renommer les photos en automatique et non un par un . C'est pour effectuer des trombinoscopes.
En espérant une solution....
Bonne soirée

[reder]

Bon:
1° dans excel, disons que tu as
c:\Users\toto |
------------------------------------
                      | Alain Aaaa
------------------------------------
                      | Zorro ZZZ

2° tu ouvres cmd (windows-R cmd entrée) et tu vas (cd c:\Users\toto) dans le répertoire où sont les photos
3° tu tapes dir /A-D /B |clip
4° tu vas dans la colonne vide, tu colles (ctrl-C) les noms de fichiers (j'imagine qu'ils se correspondent)
5° tu sélectionnes les noms (en dessous du répertoire)
6° tu vas dans VB (alt-F11), vbaproject, clic-droit, insert module
7° tu colles ça:

Sub rename()
directory = Selection.Cells(0, 1)
For Each a In Selection
src =  directory + "\" + a
dst = directory + "\" + a.Cells(1, 2)  + ".jpg"
FileCopy src, dst
Next a
End Sub

8° Tu fais F5/flèche verte pour lancer la macro

Avec un peu de chance ça marchera....

11/09/2012  20:18                 6 aa.jpg
11/09/2012  20:18                 6 Alain AA.jpg
11/09/2012  20:18                 6 Zorro Zzz.jpg
11/09/2012  20:18                 6 zz.jpg