Imprssion d'une sélection de feuilles excel via VBA [Résolu]

Signaler
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
-
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
-
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

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