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?
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