utilisation Items Combobox

[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.

 
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 :

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

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

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