Bonjour

voilà, j'aurais voulu savoir comment faire pour enregistrer que certaine feuilles d'un classeur ?
Exemple : mon classeur comporte 9 feuilles, quand je sauvegarde dans un nouveau classeur, j'aimerais ne sauvegarder que la feuil1, feuil3 et feuil5 par exemple.
Merci, voilà ou j'en suis
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
Public Sub EnregisterUneCopie()
 
    Dim Prefixe As String
    Dim Extension As String
    Dim Mois As String
 
    Sheets("Quittance Mensuel").Activate
    Range("R6").Select
 
    Nom = ActiveCell.Value
    Extension = ".xls"
 
  ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Did et Mag\Documents\Gestion Location\Locataires\" & Nom & Extension
 
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
 
End Sub