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

akujah

XLDnaute Nouveau
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

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

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson