Renommer Fichier

[pobrouwers]

Bonjour le forum,

Je souhaiterai renommer une série de fichiers dans un répertoire précis.
Le nom du fichier serait en fait la concaténation de la Cellule B4 ' - ' B10 de chaque fichier.
Quelqu'un a-t-il ca en stock ?
Merci d'avance.

 

[Creepy]

Bonjour le Forum, pobrouwers,

La commande name permet de renommer un fichier à condition que celui-ci ne soit pas utilisé par un autre processus.

elle fonctionne ainsi :

name anciennom.exe as nouveaunom.exe

dans ton cas :

Dim NewName as string
NewName = feuil1.range('B4').value & '-' & feuil1.range('B10').value & '.exe' (Si extention pas deja dans les cellules !!)

name AncienNom.exe as NewName

@+

Creepy