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 .
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 .