Rennomer un classeur depuis une cellule

[Sirus]

Bonjour,

Pour commencer je suis désolé si le sujet a déjà été créé mais j'ai pas trouver de solution me corespondant.

J'ai un classeur excel "classeur1" dont je copie 4 feuilles que je colle dans dans un nouveau classeur (jusqu'ici tout va bien grace à l'enregistrement).

La ou je bloque totalement c'est au moment de rennomer ce nouveau classeur grace au texte contenu en P14 du classeur1, sachant que ce texte change en fonction de la date.

Pouvez vous m'aider?
Merci par avance et bonne journée

 

[stefan373]

Bonsoir sirus et le forum.

     Dim Fichier As String
     Dim s As String
     s = Range("p14").Value
     Fichier = s & ".xls"
     ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Fichier

A mettre dans votre code. Il ferra une copie du classeur et lui donnera le nom voulu.
Sans le fichier pas facile de faire mieux.

A +