[excel vba]copier un classeur

[LABUCHE]

Bonjour a tous
j'aurai besoin de votre aide afin de mettre en place une macro
pour copier un classeur tout entier dans un autre fichier mais sans les formules...
en fait a chaque fois que j'alimente un fichier( dans lequel il y plusieurs macros et des formules ) j'aimerai lorsque je le ferme je cree un nouveau fichier identique mais au format texte avec des feuilles protégés afin qu'en ne puisse pas modifier mes données .....

 

[jp14]

Re : [excel vba]copier un classeur

Bonjour

Une piste
Créer un classeur et copier une a une les feuilles en utilisant la copie des valeurs.
La base de cette procédure étant réalisé avec l'enregistreur de macro.

JP

 

[LABUCHE]

Re : [excel vba]copier un classeur

voila un debut de code avec l'enregistreur de macro

    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Windows("agenda.xls").Activate
End Sub

j'aimerai pouvoir appliquer ce code pour l ensemble du classeur c'est a dire pour toute les feuilles ....

 

[LABUCHE]

Re : [excel vba]copier un classeur

bonjour jp14
on a eu la meme idee
par contre faire une macro feuille par feuille c 'est assez lourd ....

j'avais penser a modifier un code que j'utilise pour sauvegarder mes fichiers

Sub mdlsvg()

ThisWorkbook.SaveCopyAs "d:\svg.xls"
  End Sub

la il me copie toutes les feuilles meme les formules .....

 

[jp14]

Re : [excel vba]copier un classeur

Bonjour LABUCHE

Ci dessous une macro qui recopie toutes les feuilles d'un classeur dans un nouveau classeur.
Il faut modifier le code pour la copie des valeurs.

Sub Macro2()
'
Dim Sh As Worksheet
Dim classeur2 As String
Dim classeur1 As String
Dim nom1 As String
nom1 = "tintin"
    classeur1 = ActiveWorkbook.Name
    
    Workbooks.Add
   classeur2 = ActiveWorkbook.Name
     For Each Sh In Workbooks(classeur1).Worksheets
        'Workbook(classeur1).Sheets(Sh.Name).Select
        Workbooks(classeur1).Sheets(Sh.Name).Copy Before:=Workbooks(classeur2).Sheets(1)
    Next Sh

   Workbooks(classeur2).Activate
    ActiveWorkbook.SaveAs Filename:= _
        nom1, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

JP

 

[jp14]

Re : [excel vba]copier un classeur

Bonsoir (re)
IL faut modifier la macro avec le code pour copier uniquement les valeurs

For Each Sh In Workbooks(classeur1).Worksheets
        Workbooks(classeur1).Sheets(Sh.Name).Cells.Copy
        Workbooks(classeur2).Activate
        Sheets.Add
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        Workbooks(classeur1).Activate
        
    Next Sh

JP

 

[LABUCHE]

Re : [excel vba]copier un classeur

merci jp14
j'ai appliqué ton code et ça roule !!!!!


c est resolu !!!

 

[glister972]

Re : [excel vba]copier un classeur

Bonjour !!!

la réponse date d'il y a plus d'un an mais c'est exactement ce que je cherche.

Je suis débutant, vraiment débutant en VBA et je ne sais pas à quoi correspond ce qui est marqué dans la formule, quelqu'un pourrait-il m'éclairer s'il vous plait ?