Copier et nommer

B

Bruno

Guest
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
 
T

Ti

Guest
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
 

Discussions similaires

Réponses
22
Affichages
689

Statistiques des forums

Discussions
311 709
Messages
2 081 768
Membres
101 816
dernier inscrit
Jfrcs