bep42
Messages postés27Date d'inscriptionlundi 4 juin 2007StatutMembreDernière intervention29 juin 2007
-
28 juin 2007 à 14:39
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 2011
-
28 juin 2007 à 15:30
bonjour à tous!
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
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 28 juin 2007 à 15:30
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