voici mon code de sélection de mes feuilles, le principe est simple à partir de la "feuil4" (comprise) jusqu'à la fin le programme me sélectionne en surbrillance les feuilles:
<hr />
Private Sub CommandButton1_Click()
Dim myarray() As String
Dim i As IntegerFor Each currentsheet In ThisWorkbook.Sheets
If currentsheet.Name <> "crea_bl" And currentsheet.Name <> "bl" And currentsheet.Name <> "BDD" Then
ReDim Preserve myarray(i)
myarray(i) = currentsheet.Name
i = i + 1
End If
Next currentsheet
Sheets(myarray).Select
End Sub
<hr />
à la suite de cela je voudrais qu'il m'imprime les feuilles sélectionnées... à vous de me le dire
Bonjour,
Un point similaire a déjà été traité !!!
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Bonne Journée.JML
Partageons notre savoir et nos acquis