Copier et nommer

[Bruno]

Bonjour à tous


Comment créer une copie d'un classeur Actif et le renommer en prenant le nom de la cellule A1 du fichier copier.

Merci a tous

 

[Ti]

En supposant que le nom du fichier se trouve dans la cellule A1 de la première feuille :

Sub copie()
Dim MyWs As Worksheet
Set MyWs = ActiveWorkbook.Worksheets("Feuil1")
ActiveWorkbook.SaveCopyAs (MyWs.Range("A1"))
End Sub