XL 2013 copier et coller les valeurs

olive323 à dit:

Bonjour à tous,

Ci dessous un code qui me permet de copier coller d'un fichier à un autre. je voudrais coller seulement les valeurs et formats, mais pas les formules.
Impossible de trouver.
Auriez vous une idée?

VB:

Sub maj1()

Const fichier As String = "Planning prod CZ.xlsm"
Dim wbkSource As Workbook
Dim wbkDestination As Workbook
Dim classeur As Workbook
Set classeur = Application.Workbooks.Open("H:\Logistique\Planning\Planning Prod CZ\Planning prod CZ.xlsm", , local:=True)

Set wbkSource = Workbooks(fichier)
Set shtSource = wbkSource.Worksheets("C7")

If Not miseablanc Then
            Workbooks("Extraction planning prod.xlsm").Sheets("C8").Range("A1:az500").ClearContents
            miseablanc = True
      End If

Workbooks(fichier).Sheets("C7").Range("A1:az500").Copy = Destination: Workbooks("Extraction planning prod.xlsm").Sheets("C8").Range ("A1:az500")

Workbooks(fichier).Close False

    Sheets("Synthèse").Select
    
End Sub

Cliquez pour agrandir...

'------------
'------------
Workbooks(fichier).Sheets("C7").Range("A1:az500").Copy
Workbooks("Extraction planning prod.xlsm").Sheets("C8").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'--------------
'----------

Jacky67 à dit:

Bonjour à tous

Cette partie du code

VB:

'------------
'------------
Workbooks(fichier).Sheets("C7").Range("A1:az500").Copy
Workbooks("Extraction planning prod.xlsm").Sheets("C8").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'--------------
'----------

**Non testé

Cliquez pour agrandir...