Copie uniquement les valeurs à nouveau classeur à partir de plusieurs feuilles de calcul

Supposons que j'ai un workbook1.xlsm avec plusieurs feuilles de calcul et plein de diverses formules. Je veux créer un nouveau workbook2.xlsx, qui aurait l'air exactement le même que workbook1, mais dans toutes les cellules de valeurs à la place de formules.

J'ai cette macro pour copier une feuille de workbook1:

Sub nowe()

Dim Output As Workbook
Dim FileName As String

Set Output = Workbooks.Add
Application.DisplayAlerts = False

ThisWorkbook.Worksheets("Przestoje").Cells.Copy

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteFormats

FileName = ThisWorkbook.Path & "\" & "worksheet2.xlsx"
Output.SaveAs FileName

End Sub

mais le problème est qu'il copie seulement une feuille de calcul et n'a pas de nom comme si c'était dans worksheet1. Je ne peux pas le comprendre.

Encore un autre problème est que worksheet2 est ouvert par la suite. Je ne veux pas le faire.

Comment puis-je résoudre ces problèmes?

InformationsquelleAutor alex | 2013-06-22