XL 2013 Macro création d'un fichier en valeur

[akujah]

Bonjour,

J'ai des fichiers avec des formules et des TCD qui faut que j'envoie en format valeur. Je voulais savoir si il était facile de faire une macro qui me copie-colle en valeur un certains nombres de feuille dans un nouveau fichier, sachant que ma seul macro réalisée jusqu'à maintenant est une macro copier coller fait grâce à l'assistant.

Merci de vos réponses

 

[akujah]

Voici un extrait de ce que j'ai commencé à faire j'ai une erreur 9 au niveau de 'Workbooks("classeur").Sheets("Feuil11").Cells.Select'

Sub AddNew()
Dim classeur As Workbook
Set classeur = Workbooks.Add
classeur.Worksheets.Add Count:=10 'nb de feuille a ajouter (important sinon marche pas)


Windows("fichier d'origine.xlsm").Activate
    Cells.Select
    Sheets(Array("feuil1", "feuil2", _
        "feuil3", "feuil4")).Select
        Selection.Copy



Workbooks("classeur").Sheets("Feuil11").Cells.Select   'remplacer le num de feuille (N+1 ligne 3)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

End Sub