Bonjour à toutes et à tous,

étant totalement néophyte (ou à peine autodidacte en VBA), j'ai quelques difficultés.

Je souhaite réaliser (et améliorer) une petite macro pour renommer une série de fichiers à partir d'une liste excel.

--------- Voilà le problème ------------------------

Dans la colonne B, les nouveaux noms.
Dans la colonne F, les anciens noms.
(Au départ B et F sont remplis automatiquement par une macro qui recherche et affiche le contenu d'un dossier ciblé).

La petite macro ci-dessous fonctionne uniquement si la totalité des noms de la colonne B est différente de la colonne F.

Si un nom dans la colonne B est identique à celui de la colonne F, ça ne marche plus.

Je voudrais pouvoir changer le nom de certains fichiers (en colonne B).
Il faudrait donc intégrer une espèce de test (genre If etc...) sur chaque ligne : pour comparer B à F et si B est différent de F on renomme sinon on passe à la ligne suivante...

Et ça je n'y arrive pas !!

La macro (déjà bien pratique)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Renom()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set repertoire = FSO.GetFolder(ActiveSheet.Cells(1, 1))
Set fichiers = repertoire.Files
For Each f In fichiers
    f.Name = Cells(Application.WorksheetFunction.Match(f.Name, Range("f:f"), 0), 2).Value
Next
End Sub
-------------------------------------------------------------------------

Merci d'avance...
A+
D D du 06