Discussion :

[melinavy]

Bonjour à tous,

Je cherche à copier/coller les valeurs de plusieurs feuilles excel vers un nouveau classeur. Je voudrais copier/coller en valeurs (plus de formules) en gardant la mise en page si c'est possible. J'ai fait un fichier test (ci-joint). Pouvez-vous m'aider ?

Voici la macro qui fonctionne mais ne copie pas la mise en page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CopierColler()
  Set twb = ThisWorkbook
  Set wb = Workbooks.Add 
    For i = 1 To twb.Worksheets.Count - wb.Worksheets.Count 'créer des feuilles autant que nécesssaire
     wb.Worksheets.Add
    Next i
    j = 0
    For Each ws In twb.Worksheets
      j = j + 1
      ws.UsedRange.Copy
      With wb.Worksheets(j).Range("A1")
       .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
       .PasteSpecial Paste:=xlPasteColumnWidths
      End With
    Next
    wb.SaveAs Filename:="C:\Users\Default\Documents\...\Feuille_test.xls" 
End Sub

Merci pour votre aide !

pour info je suis vraiment débutante sur les macro !

Belle journée à tous

[ARTURO83]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CopierColler()
    Set twb = ThisWorkbook
    Set wb = Workbooks.Add
    For i = 1 To twb.Worksheets.Count - wb.Worksheets.Count 'créer des feuilles autant que nécesssaire
        wb.Worksheets.Add
    Next i
    j = 0
    For Each ws In twb.Worksheets
        j = j + 1
        ws.UsedRange.Copy
        With wb.Worksheets(j).Range("A1")
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlFormats
            .PasteSpecial Paste:=xlPasteColumnWidths
        End With
    Next
    wb.SaveAs Filename:="C:\Users\Default\Documents\...\Feuille_test.xls"
End Sub

Cdlt

[Pierre Fauconnier]

Salut.

Arturo:

Perso, j'ajouterais Application.CutCopyMode=false après les pastespecials pour libérer la barre d'état, sinon, les cellules copiées continuent à scintiller et la barre d'état n'est pas à "Prêt"...