Sauvegarder que certaines feuilles d'un classeur

Question

Bonjour le forum
J'ai un classeur de 6 feuilles. La premiére sert d'accueil et les 5 autres sont des formulaires.
Voilà mon probléme, je voudrais savoir s'il est possible de faire une sauvegarde que de certains formulaire, afin d'éviter la fonction "enregistrer sous" qui prendrait tout le classeur.
J'ai déjà quelque chose dans ce genre pour imprimer les formulaires, un USF dans lequel on choisit les feuilles que l'on désire imprimer.
J'ai essayé de l'adapter pour des sauvegardes mais rien ne marche.
Voilà le code:
Private Sub CommandButton3_Click()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim i As Variant, j As Integer, X As String
        j = Worksheets(1).Range("Q1").Value
            For i = 0 To j - 1
                If ListBox1.Selected(i) = True Then
                    Worksheets(i + 1).Activate      ' Active la feuille
                    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Nom de l'imprimante"     ' Imprime la feuille active
                End If
            Next i
    Sheets(1).Activate
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton4_Click() 'bouton annuler de l'USF
UserForm3.Hide
End Sub
Private Sub UserForm_Initialize()
    Dim i As Integer, j, X As Integer, y
    Dim numcel As Integer, nbsheets As Integer, lp As Integer, counter As Integer
    ListBox1.MultiSelect = fmMultiSelectExtended    ' Active la multiselection de la ListBox
            For lp = 1 To Sheets.Count
                counter = counter + 1
                numcel = numcel + 1
                nbsheets = nbsheets + 1
                Application.Sheets(1).Range("R" & numcel) = Application.Sheets(nbsheets).Name
            Next lp
            
        Worksheets(1).Range("Q1").Value = counter
        j = Worksheets(1).Range("Q1").Value
            For X = 1 To j
                i = i + 1
                y = Worksheets(1).Range("R" & i).Value
                UserForm3.ListBox1.AddItem (y)
            Next X
    
    End Sub

J'ai tenté de remplacé Activeprinter par Saveas mais cela n'a rien donné 
Si quelqu'un a une idée je suis preneur
A+
St@tman

cs_PROGRAMMIX · Answer

Je pense que "le plus simple" serait de copier les feuilles à sauvegarder dans un nouveau classeur et enregistrer ce dernier.

Programmix

Sauvegarder que certaines feuilles d'un classeur

1 réponse

Discussions similaires