Renommer des fichiers

Bonjour à tous,

J'ai un grand nombre de fichiers a renommer.

J'ai un tableau qui reprend la correspondance du nom du fichier, vers la re nomination.

Dans le tableau ci joint, la colonne "A" est la correspondance des fichiers

Et dans la colonne "B" est le nouveau nom a appliqué au fichier.

Quelqu'un peut il m'aider, car je suis en train de m'éloigne dans tout les sens.

Merci d'avance pour votre aide

Bonjour Damsa,

Peux-tu donner davantage de détails ? Il n'y a qu'un codename et 2 colonnes de caractéristiques sachant qu'elles contiennent toutes 2 un grand nombre de données similaires (pas idéal pour obtenir des noms uniques).

Et 50 000 fichiers, ça fait un peu beaucoup quand même

Cdlt,

Bonjour,

Après des recherches un plus ciblée j'ai trouvé mon bonheur

Je joint le code utiliser.

Sub Rename()
Dim Fichier As String

last = Sheets("ID").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To last
    Dos = Sheets("DATASHEET").Range("B1")
    Anc = Dos & "\" & Cells(i, 1) & ".jpg"
    Nouv = Dos & "\" & Cells(i, 2) & ".jpg"
        Fichier = Dir(Anc)
            If Fichier <> "" Then
                If Len(Dir(Nouv)) = 0 Then
                    Name Anc As Nouv
                End If
            End If

Next i
End Sub

Et cela fonctionne comme je veux, maintenant je le peaufine.

Merci