Sujet Précédent Sujet Suivant

Créer une Macro impression excel contenant plusieurs onglets

Fermé
Antoine972 - 23 févr. 2015 à 07:53
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 23 févr. 2015 à 09:39
Bonjour,
Me voila face à un obstacle. Je travail sur un document excel contenant une trentaine d'onglets. J'aimerais créer des macros me permettant de lancer l'impression d'un groupe d'onglets prédéfinis. Je sais que l'on peut aussi créer des boutons qui lance directement l'impression.
Comment faire?
Merci d'avance



A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
23 févr. 2015 à 08:48
Bonjour,

un exemple: 

Private Sub CommandButton2_Click()
    Dim a As Byte, tOngl() As String
    
    Application.ScreenUpdating = False
    a = 0
    For x = 1 To Worksheets.Count
        ' tests des onglets a ne pas selectionner
        If Worksheets(x).Name <> "A" And Worksheets(x).Name <> "B" Then
           ReDim Preserve tOngl(a)
           tOngl(a) = Worksheets(x).Name
           a = a + 1
        End If
    Next x
    'selection onglet(s)
    Sheets(tOngl()).Select
    Application.ScreenUpdating = True
    'impression
    ActiveSheet.PrintOut
End Sub
0
Antoine972
23 févr. 2015 à 09:26
Merci pour ta réponse, il y a quelque chose que je ne comprend toujours pas, ou dois je mettre les onglets selectionnées et sous quelle forme (titre des onglets, numeros, ...)?
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711 > Antoine972
Modifié par f894009 le 23/02/2015 à 09:39
Re,

ou dois je mettre les onglets selectionnées dans ce code, vous devez mettre les onglets a ne pas selectionner dans la ligne du If. Si vous avez moins d'onglets a selectionner que d'onglets a ne pas selectionner, dans la ligne du If mettez =nomdelonglet au lieu de <>nomdelonglet et Or au lieu de And
0