Imprssion d'une sélection de feuilles excel via VBA

Résolu
bep42 Messages postés 27 Date d'inscription lundi 4 juin 2007 Statut Membre Dernière intervention 29 juin 2007 - 28 juin 2007 à 14:39
JM247L Messages postés 443 Date d'inscription mardi 27 mars 2007 Statut Membre Derniè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

1 réponse

JM247L Messages postés 443 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 1 mars 2011 2
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
3