Bonjour, et que la nouvelle année 2017 soit remplie de bonheur à tous.
le bva ci-dessous fonctionne très bien, je souhaiterais la même chose, mais qui me le fasse dans une Feuille spécifique nommée "fiche" qui se trouve dans le même classeur.
Merci.
cordialement.
Cédric.
_____________________________________________________
Private Sub CommandButton2_Click()
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "extraction"
With ShNouveau
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With
End Sub
_____________________________________________________
le bva ci-dessous fonctionne très bien, je souhaiterais la même chose, mais qui me le fasse dans une Feuille spécifique nommée "fiche" qui se trouve dans le même classeur.
Merci.
cordialement.
Cédric.
_____________________________________________________
Private Sub CommandButton2_Click()
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "extraction"
With ShNouveau
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With
End Sub
_____________________________________________________
Dernière édition: