modifier un code pour qu'il enregistre que les valeurs d'une feuille sans formule

mapomme à dit:

Bonsoir abousaad,

Essayez la manip suivante:

Insérez après la ligne:
Sheets(Array("feuil1")).Copy
la ligne:
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

Cliquez pour agrandir...

Sheets(Array("feuil1" , "feuil2" , "feuil3")).Copy

mapomme à dit:

Bonjour abousaad,

Essayer ce code:

Code:

Sub Archiver()
Dim ch As String
Dim num As String
Dim n As String
Dim Feuille As Worksheet
  num = Sheets("MENU").Range("l8").Value
  n = Sheets("MENU").Range("l6").Value
  ch = ActiveWorkbook.Path
  Sheets(Array("feuil1", "feuil2", "feuil3")).Copy
  For Each Feuille In Sheets(Array("feuil1", "feuil2", "feuil3"))
        Feuille.UsedRange.Value = Feuille.UsedRange.Value
  Next Feuille
  ActiveWorkbook.CheckCompatibility = False
  ActiveWorkbook.SaveAs Filename:=ch & "\Archive\" & "archive" & "_" & num & "-" & n & ".xlsx", FileFormat:= _
  xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
  False, CreateBackup:=False
End Sub

Cliquez pour agrandir...