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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

abousaad

XLDnaute Junior
Bonsoir à tous;
Pourriez vous m'aider à compléter ce code pour qu'il enregistre la feuil1 dans un nouveau classeur sans formules.
Merci d'avance.
Code:
Sub Archiver()
Dim ch As String
Dim num As String
Dim n As String
num = Sheets("MENU").Range("l8").Value
n = Sheets("MENU").Range("l6").Value
ch = ActiveWorkbook.Path
Sheets(Array("feuil1")).Copy
ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:=ch & "\Archive\" & "archive" & "_" & num & "-" & n & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
 
Re : modifier un code pour qu'il enregistre que les valeurs d'une feuille sans formul

Bonsoir abousaad,

Essayez la manip suivante:

Insérez après la ligne:
Sheets(Array("feuil1")).Copy
la ligne:
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
 
Re : modifier un code pour qu'il enregistre que les valeurs d'une feuille sans formul

Bonsoir abousaad,

Essayez la manip suivante:

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

Bonjour à tous
Merci mapomme pour la réponse;
ça marche bien votre ligne de code!
Comment l'adapter pour deux ou trois feuilles:
Code:
Sheets(Array("feuil1" , "feuil2" , "feuil3")).Copy
Merci d'avance
 
Re : modifier un code pour qu'il enregistre que les valeurs d'une feuille sans formul

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
 
Re : modifier un code pour qu'il enregistre que les valeurs d'une feuille sans formul

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

Bonsoir;
Merci infiniment pour votre aide.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
587
Réponses
1
Affichages
1 K
Retour