Discussion :

[Didpa]

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

[Didier Gonard]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub toto()
 Sheets(Array("Feuil1", "Feuil3", "Feuil5")).Copy
End Sub

dans le classeur 1 crée un nouveau classeur avec la copie des 3 feuilles citées, il ne reste plus qu'à le sauver. Un effort de recherche sur le forum montrera de nombreux exemples, ça a été traité il y a moins de 8 jours


cordialement,

Didier