Discussion :

[bmeda72]

Bonjour à tous,

J'ai un combobox sur un userform avec 16 items. chaque item correspond au nom d'une feuille dans thisworkbook.
J'aimerai que lorqu'un item est choisi qu'un nouveau classeur s'ouvre et que l'on copie toute la feuille(comboBox.text) de thisworkbook dans une nouvelle feuille(ComboBox.text) du nouveau classeur.
J'ai écris le code suivant mais à chque item choisi un nouveau classeur s'ouvre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ComboBox1_Change()
 
    Dim NewSheet As Variant
 
    ThisWorkbook.Worksheets(ComboBox1.Text).UsedRange.Copy
 
    Set NewSheet = Workbooks.Add
        NewSheet.ActiveSheet.Paste
        ActiveSheet.Name = ComboBox1
        [A1].Select
 
 
End Sub

Merci pour votre aide

[fring]

Bonjour,

Tu peux essayer comme ceci :

Code :

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

1
2
3
'variables à déclarer en tête des procédures
Dim NbrFeuil As Byte
Dim WbNew As Workbook, WbOri As Workbook

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
Private Sub ComboBox1_Change()
 
NbrFeuil = NbrFeuil + 1
 
If NbrFeuil = 1 Then
    'si c'est la première sélection on crée un nouveau classeur avec la feuille sélectionnée
    Set WbOri = ThisWorkbook
    Sheets(Me.ComboBox1.Text).Copy
    Set WbNew = ActiveWorkbook
Else
    'sinon on ajoute les feuilles sélectionnées au classeur créé
    WbOri.Sheets(Me.ComboBox1.Text).Copy After:=WbNew.Sheets(Sheets.Count)
End If
 
End Sub

Et dans le bouton qui ferme ton UserForm

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
    Unload Me
    NbrFeuil = 0 '<-- remet le compteur à 0 pour la création d'un nouveau classeur lors de la prochaine utilisation
End Sub

[bmeda72]

Merci Fring,

J'ai essayé le code mais il bloc sur la ligne - Sheets(Me.ComboBox1.Text).Copy - avec cette erreur " La methode copie de la classe worksheet a éhoué.

Comment faire