Copier Feuille dans un Nouveau Classeur

Bonsoirs Chers tous

Je voudrais par macro copier une Feuille de mon classeur dans un nouveau classeur en conservant seulement les valeurs et la mise en forme.

Merci

Bonjour

avec cette instruction

Thisworkbook.Sheets("Feuil1").Copy

S'il y a des formules, il faudra également après cette instruction faire une copie des données et collage spécial valeurs pour les éliminer.

Cordialement

Bonjour

avec cette instruction

Thisworkbook.Sheets("Feuil1").Copy

S'il y a des formules, il faudra également après cette instruction faire une copie des données et collage spécial valeurs pour les éliminer.

Cordialement

Merci

j'ai adapté comme suit pour coller valeurs et format mais les formules sont restées

Sub Copie()
Application.ScreenUpdating = False
Dim chemin, fichier
    chemin = ThisWorkbook.Path & "\Dossier\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
    fichier = "test"
    Range("A1:C9").Copy
    Workbooks.Add
   ActiveSheet.[A1].Select
     With Selection
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    End With
                     Application.ScreenUpdating = False
                     Application.DisplayAlerts = False
    With ActiveWorkbook
    .SaveAs chemin & fichier, 51
    .Close
    End With
End Sub
2source.xlsm (18.62 Ko)

Bonjour,

Essaie ainsi :

Sub Copie()
Dim chemin As String, fichier As String
    Application.ScreenUpdating = False
    chemin = ThisWorkbook.Path & "\Dossier\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
    fichier = "test.xlsx"
    Range("A1:C9").Copy
    Workbooks.Add (xlWBATWorksheet)
    With ActiveWorkbook
        With .Worksheets(1).Cells(1)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
        Application.CutCopyMode = False
        .SaveAs chemin & fichier, 51
        .Close
    End With
End Sub

Je vous dis M E R C I Jean Eric

Rechercher des sujets similaires à "copier feuille nouveau classeur"