Rennomer un classeur depuis une cellule

Sirus · 14 Juin 2011

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 · 14 Juin 2011

Bonsoir sirus et le forum.

Code:

     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 +

Rennomer un classeur depuis une cellule

Sirus

Guest

stefan373

XLDnaute Occasionnel

Discussions similaires

Rennomer un classeur depuis une cellule

Sirus

Guest

stefan373

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency