Worksheets(myarray).Copy : ca me fait pls wkbook ?? help (macro jointe)

[papapaul]

Auant de classeurs que de feuilles apres ca, je comprends pas 😡
Private Sub CommandButton1_Click()
'Copie plusieurs feuilles pour enregistrer
Dim wb As Workbook
Dim i As Integer
Dim tmp As Integer
Dim myarray() As Variant
Set wb = ThisWorkbook
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ReDim Preserve myarray(tmp)
myarray(tmp) = ListBox1.List(i)
tmp = tmp + 1
End If
Next
End With
For i = 0 To UBound(myarray)
wb.Worksheets(myarray).Copy
Next i
Application.Dialogs(xlDialogSaveAs).Show
UserForm1.Hide
End Sub

 

[Dan]

Re : Worksheets(myarray).Copy : ca me fait pls wkbook ?? help (macro jointe)

Bonsoir,

Pourquoi ouvrir deux fils plutôt que de rester sur le premier ?? --> https://www.excel-downloads.com/threads/ca-marche-copie-onglets-dans-autre-classeur-sauf-que.68909/

Vois ce lien à lire notamment au vu de la manière dont tu postes sur le forum : -> Lien supprimé