Création nouveau fichier avec plusieurs feuilles

[stef2708]

Bonjour le forum

Vous allez me dire, vu le titre, ça sent le réchauffé. Mais en fait je n'ai pas réussi à trouver la solution sur le forum.
J'explique :
je souhaite pouvoir séléctionner certaines feuille avec des checkbox, et lorsque l'on valide, un fichier excel se crée dans lequel les feuilles sélectionnées se copie en mode valeur.
De plus je souhaiterai qu'automatiquement la fenetre "enregistrer sous..." s'ouvre.....

à l'heure d'aujourd'hui je sais le faire pour une seule feuille .... mais je n'arrive pas à trouver l'astuce pour le faire avec plusieurs feuilles séléctionnées.

Je joint un fichier exemple de ce que j'aimerai réaliser.

Merci de votre aide.(si vous pouviez au moins me donner des idées .... ce serait sympa;-))

Stéphane 😱

 

[porcinet82]

Re : Création nouveau fichier avec plusieurs feuilles

Salut,

Voici un code qui a l'air de fontionner, le seul impératif, c'est que le libellé de tes checkbox soit identique a celui des feuilles :

Private Sub CommandButton1_Click()
Dim i%, bool As Boolean
Dim nom_classeur As String, class_ouv As String
bool = False
class_ouv = ActiveWorkbook.Name
For i = 1 To 3
    If Controls("CheckBox" & i) = True Then
        If bool = False Then
            Sheets(Controls("CheckBox" & i).Caption).Copy
            bool = True
            nom_classeur = ActiveWorkbook.Name
        Else
            Windows(class_ouv).Activate
            Sheets(Controls("CheckBox" & i).Caption).Copy after:=Workbooks(nom_classeur).Sheets(1)
        End If
    End If
Next i
With ActiveWorkbook
    Application.Dialogs(xlDialogSaveAs).Show
End With
End Sub

@+