1 2 3 4 5 6 7 8 9 10 11 12
|
'Duplique les onglets pour créer le nouveau fichier
Sheets(Array("Commands", "List", "Master Checklist", "Cash Mgmt", "Model Portfolio", _
"Broker Commissions", "DTL - STAR", "PfC Targets")).Select
Sheets(Array("Commands", "List", "Master Checklist", "Cash Mgmt", "Model Portfolio", _
"Broker Commissions", "DTL - STAR", "PfC Targets")).Copy
Chemin_Sauvegarde = "\\Blabla\Blabla2\blabla3\Fund\"
ChDir Chemin_Sauvegarde
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(Chemin_Sauvegarde & Nom_Sauvegarde, fileFilter:="Excel Files (*.xls), *.xls") |
Partager