[gepi-users] Trombino...

[Laurent Delaveau]

Le Fri, 29 Sep 2006 18:06:27 +0200, vous avez écrit :

>ELENOET.jpg?


à ce propos, vous demandez au photographe de vous fournir les fichiers
à ce format? ou vous changez les noms?

Pour ceux que ça intéresse, j'ai fait une petite macro VBA qui
transforme le nom1 en nom2 à partir d'Excel 

du style 

avant      	après

toto.jpg		1234.jpg
durand.jpg	2345.jpg 


voici le code: 

------------------------------------------------------
 Sub rename()
 
    ChDir ActiveWorkbook.Path
    For Each c In Range([A2], [A65000].End(xlUp))
       If Dir(c) <> "" Then Name c As c.Offset(0, 1)   ' si existe 
    Next c
 
 End Sub

mettre la liste à renommer dans A et les eleonet dans B et le fichier
excel dans le répertoire des photos.


Laurent Delaveau 
modérateur de la liste orthophonie d'Aurélie
http://orthorelie.free.fr
profs: MOYENNES 9.6 sur http://www.multimania.com/rolfan