Renommer automatiquement des fichier en utilisant Excel

Bonjour a tous ,

Je viens de faire le tour de ce forums bien sympatique. Je ne trouve pas de post qui pourrais convenir a mon probléme. C'est donc a mon tours de vous poser une colle ^^

Alors je commence:

J'ai un dossier dans lequel une machine de numérisation de bande magnétique viens m'enregistrer des fichiers.

Par exemple : Dans le dossier \Num

0000-OR14569.mxf

0000-OR14575.mxf

0000-OR14559.mxf

etc.....

Ces noms de fichiers correspondant aux noms de leurs support ( cassettes ) d'avant leurs numérisation.

J'ai fichier excel où sur la chaque ligne figure les différentes information de mes produit en numérisation.

Par exemple :

A B C D

1 0000-OR14569 | durée |nom du client | nom reel x|

2 0000-OR14575 | durée |nom du client | nom reely |

3 0000-OR14559 | durée |nom du client | nom reelz |

| | >>> représente une cellule

Je souhaite donc trouver un moyen (macro ou Vb) de faire faire a excel le résonemment suivant.

Je regarde mon dossier \num

Je cherche dans la colone A le nom correspondant a mon fichier "0000-OR14569.mxf"

Je trouve le nouveau nom du fichier en cellule D

je renomme mon fichier "0000-OR14569.mxf" en "nom reel x.mxf"

Je passe au deuxiéme.

J'éspere avoir réussi a bien expliquer mon souçis et vous remercie d'avance pour toute aide de votre part

Bonjour nonoinc,

Une macro à lancer à partir de la feuille contenant les données :

Sub renom()
  rep = "C:\Documents and Settings\*******\Num\" 'mettre le chemin du répertoire complet
  ChDir rep
  On Error Resume Next
  For i = 1 To Range("A65000").End(xlUp).Row
  Name Cells(i, 1) & ".mxf" As Cells(i, 4) & ".mxf"
  Next i
  On Error GoTo 0
End Sub

Whaoo rapide la réponse !!

Je test , et je vous dis ce que sa donne .

Merci encore !