XL 2013 Impression des feuilles listées dans une colonne

[Leguyl]

Bonjour à tou(te)s,

Dans un fichier, j'ai un tableau depuis lequel je redistribue les infos dans des fiches (une fiche par feuille) et une autre feuille dans laquelle j'ai juste une liste des noms d'onglets/feuilles à imprimer. Cette liste change dynamiquement selon quelles fiches sont remplies.

J'aimerais, à l'aide de VBA, imprimer les feuilles listées comme un seul "document".

Une idée sur la manière de procéder ?

Bonne journée,
Leguyl

 

[cp4]

Bonjour,

un essai

Sub imprimer()
    Dim c As Range, Tf()
    For Each c In Range("tableau1[Liste]").SpecialCells(xlCellTypeVisible)
        ReDim Preserve Tf(n)
        Tf(n) = c
        n = n + 1
    Next c
    
    For i = LBound(Tf) To UBound(Tf)
        Sheets(Tf(i)).PrintOut
    Next i
End Sub

Bonne journée.

 

[Leguyl]

Bonjour cp4,

Merci, je teste immédiatement.

 

[Leguyl]

Ça marche, encore merci à toi cp4. 👍

Est-il possible d'ouvrir automatiquement la boîte de dialogue d'impression avant de commencer celle-ci afin de sélectionner l'imprimante qui sera utilisée ?

 

[Eric C]

Bonjour le forum
Bonjour Leguyl, bonjour cp4

Après :

Dim c As Range, Tf()

Tu tapes :

Application.Dialogs(xlDialogPrinterSetup).Show
MsgBox "Imprimante Sélectionnée : " & Application.ActivePrinter

Bonne après-midi à toutes & à tous
@+ Eric

 

[Leguyl]

Bonjour Eric, grand merci à toi également👍

@+
Leguyl