Renommer un classeur automatiquement

Avé la communauté Excelienne,

J' ai cherché sur le forum une solution à un problème que beaucoup d'entre vous sauront sûrement résoudre :

en A1 : - j'ai le nom du classeur ouvert, type "classeur 2007 V3.2.xls"

en A2 : - j'ai GAUCHE(A1;9), ce qui donne "classeur "

en A3 : - j'ai une liste déroulante me donnant le choix de l'année (2000 à 2100 par exemple), imaginons que je choisisse 2006.

en A4 : - j'ai DROITE(A1;9), ce qui donne " V3.2.xls"

en A5 : - j'ai CONCATENER tout ça, ce qui donne "classeur 2006 V3.2.xls"

QUESTION : comment changer le nom du classeur en question, en le nommant avec le texte créé en A5 ?

Merci à vous

Salut gelonloup et le forum

Pour renommer, il suffit de sauvegarder le fichier

Sub RenommerSauvegarde()

Dim Fichier As String
    Fichier = Range("A5")
    ActiveWorkbook.SaveAs Filename:= _
        Fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Mytå

Avé Exceliens du monde et du Québec

Ben oui, j'avais eu cette idée, mais je débute dans cette langue étrangère qu'est le VBA...

Merci pour tes qualités d'interprète...

J'ai d'ailleurs posté une autre demande de traduction de macro sur le forum alors à bientôt peut être et MERCI encore