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
6
Affichages
658

Statistiques des forums

Discussions
303 475
Messages
2 011 479
Membres
219 001
dernier inscrit
Luc d'or