Renommer fichiers en nombre

[jeanlouispaf]

Salut les excelliens
Je souhaite renommer des fichiers d'un répertoire en composant le nouveau nom d'un préfixe commun (ex. "02-15-") suivie d'une référence (ex. "AAAA", "BBB" ....) et de l'extension commune du fichier.
J'ai cherché sur plusieurs sites et j'y ai trouvé nombre de propositions. J'ai opté pour celle proposée par boisgontier malheureusement j'ai systématiquement une erreur qui me revient lorsque je renomme les fichiers à la ligne suivante

If Not f = ActiveWorkbook.Name Then Name f.Value As f.Offset(0, 2).Value

VBA ne veut pas entendre parler de Name f.Value ....
Merci à ceux qui pourront m'aiguiller sur ce qui me paraissait pourtant simple comme problème.

 

[jpb388]

Re : Renommer fichiers en nombre

Bonjour à tous
essaye ceci

Sub modifieNom()
    Dim Mot$
For Each f In Range([A4], [A4].End(xlDown))
    If f.Offset(0, 2) <> "" Then
        If Not f = ActiveWorkbook.Name Then
            Mot = "Sal-"
            Mot = Mot & Mid(f.Text, 6, 5)
            Mot = Replace(Mot, ".", "-")
            f.Offset(0, 2) = Mot & "-" & f.Offset(0, 1) & Right(f.Text, 4)
        End If
    End If
Next f

End Sub

 

[jeanlouispaf]

Re : Renommer fichiers en nombre

Bonjour jpb88

Merci de t'être intéressé à mon problème.
Malheureusement ta solution ne correspond pas à mon souci.
Ta macro transforme les éléments concaténées des cellules de la colonne c en valeur, comme un collage spécial.
Ce que je souhaite, c'est que la concaténation de chaque cellule de la colonne c devienne le nouveau nom de chaque cellule correspondant sur la colonne a et opère ce changement de nom dans le répertoire d'origine.
C'est là où la formule inscrit une erreur.