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

Membres actuellement en ligne

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07