Copier tout le contenu d'un classeur dans un nouveau classeur vierge.

Question

Slt,

Je cherche le moyen de faire une copie int&#233;grale d emon classeur dans un nouveau classeur vierge. Cela pour faire une archive d emon classeur sous un autre nom  (qui sera le nom saisi dans une cellule du classeur d'origine).

Je ne veu pas utiliser le saveas car cette propri&#233;t&#233; a pour defaut de laisser par le suite le nouveau classeur ouvert et non l'ancien.

J'essaye donc d efaire une copie d etoute mais feuille dans un 2nd classeur mais je n'y arrive pas.

j'ai essayer un truc dans le dtyle:         mais ca plante

    Sheets(Array("def_puiss", "Feuil1", "Feuil2", "Feuil3", "Feuil4")). Select
    Sheets(Array("def_puiss", "Feuil1", "Feuil2", "Feuil3", "Feuil4")). Select

Si quelqu'un a une id&#233;e, peut &#234;tre une boucle for each worksheet ....., mais je n' arrive pas non plus.

Merci d'avance

Olivier

michelxld · Answer

bonsoir

tu peux tester la m&#233;thode SaveCopyAs pour effectuer une copie 

ThisWorkbook.SaveCopyAs "C:\maCopieDeSauvegarde.xls"

bonne soiree
michel

olivier857 · Answer

Ok j'essaye de suite 



merci

olivier857 · Answer

Merci bcp ca marche,



genial cette propri&#233;t&#233; je ne la connaissai pas et elle fait exactement ce que je cherch&#233;.





Autre queqtion est-ce qu'il ya un moyen d'enregistrer une seul feuille
d'un classeur, en supprimantson code VB et c'est formule Excell.



Moi je fait de cette fa&#231;on mais je sais pas si c'est la meilleur :



    Worksheets("devis").Cells.Select    feuille que je veu enregistrer

    Selection.Copy

    Workbooks.Add

    nom_classeur = ActiveWorkbook.Name

    Workbooks(nom_classeur).Worksheets("Feuil1").Cells.Select

    Selection.PasteSpecial Paste:=xlValues

    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    ActiveSheet.Name = "Devis"

    Application.DisplayAlerts = False

    Worksheets("Feuil2").Delete

    Worksheets("Feuil3").Delete

    Application.DisplayAlerts = True

    Worksheets("Devis").Range("E2").Select

    ActiveWorkbook.SaveAs FileName:=chemin2 &
"archives_" & Year(Date) & "" & Range("num_devis") &
".xls"

    Workbooks(Range("num_devis") & ".xls").Close , False

    Worksheets("Devis").Range("E2").Select



Voil&#224; c'est un peu tordu mais ca marche, je r&#233;cupaire bien juste ma
feuille  Devis, d&#233;muni d ec'esrt formile et de son code, mais avec
ca mise en forme.



Merci



Olivier

michelxld · Answer

bonjour Olivier

j'espere que ce lien pourra t'aider

http://frederic.sigonneau.free.fr/code/VBE/CopieFeuilleSansCodeVBA.txt

bonne journ&#233;e
michel

Copier tout le contenu d'un classeur dans un nouveau classeur vierge.

4 réponses

Discussions similaires