XL 2010 Copie de classeur sous un autre nom

sams96

XLDnaute Nouveau
Bonjour à tous ,
j ai mon classeur dont le nom est "classeur 1" , dans la feuille 1 de mon classeur j ai mon command_button qui fait exécuter ma macro , quand ma macro , s'éxecute , les résultats s'affichent sur ma feuille 1 , du coup je veux rajouter des lignes de code vba , qui vont copier , ma feuille 1 dans un nouveau classeur et sous un nouveau nom , une fois cela effectuer , elle effacera tous les résultats afficher par ma macro dans le classeur 1 .
j ai essayer de créer une DialogBox , mais quand cette dernière s ouvre , je met le nouveau nom classeur copie , sauf que cette dernière elle modifie aussi le nom de mon classeur d'origne :

Dim FileName As Variant


'Displaying the saveas dialog box
FileName = Application.GetSaveAsFilename("MyFileName.xls", _
"Excel files,*.xlsm", 1, "Select your folder and filename")

'User didn't save a file
If TypeName(FileName) = "Boolean" Then Exit Sub

'Save the workbook
ActiveWorkbook.SaveAs FileName


Mon Problème ici est que je cherche à avoir 2 noms de classeurs différents ,

Votre aide me sera précieuse .
 

Discussions similaires