Renommer en auto un nouveau fichier ...

[CG2000]

Bonsoir le Forum,

Après plusieurs essais je n'y arrive pas.
Dans l'exemple joint une macro copie bien l'onglet actif sur un nouveau classseur et repporte également très-bien le nom de l'onglet.
Par contre je n'arrive pas a renommer également le nouveau classeur avec le nom de l'onglet.
Si nouveau onglet nommé exemple alors nouveau classeur nommé exemple.

Merci par avance de votre aide pour me permettre de m'orienter.


CG2000

 

[kjin]

Re : Renommer en auto un nouveau fichier ...

Bonsoir,
Tu ne peux pas renomer un fichier non encore enregistré

Sub ONGLETCOPIE()
ChDir ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs ActiveSheet.Name & ".xls"
End Sub

A+
kjin

 

[CG2000]

Re : Renommer en auto un nouveau fichier ...

Bonsoir kjin,

Merci pour la solution. Elle est vraiment nickel.
Excellente soirée à toi et au Forum.

CG2000