Impression en série sur excel

RBO -  
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour à tous,

J'ai un fichier excel bâti avec une base de dotation par salarié (date/salarié/type objet/nombre) et un autre onglet avec un TCD qui reprend "Type objet / nombre" qui est filtré en fonction du mois et du salarié.
Mon besoin est de faire une impression chaque mois d'un récapitulatif / salarié. Donc de faire une multitude d'impression qui prendrais du temps si elle n'est pas automatisée.
Le petit plus serait de faire cette impression que pour des salariés a qui ont donné quelque chose.
Bien évidemment la liste de salarié évolue dans le temps...

J'ai quelques base en VBA, mais je me sent bien impuissant face à ce cas de figure.
Merci d'avance de vos réponses

1 réponse

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour,
    Pour que le programme décide d'imprimer ou pas une feuille, il faudrait lire dans chaque feuille un élément qui puisse déclencher l'impression.
    Dans l'exemple suivant, l'impression de chaque feuille se fera uniquement si il y a un "X" dans la cellule A1, mais ça peut être n'importe quel autre système, une date par exemple, à vous de voir quel sera l'élément déclencheur.

    Sub ImprimerClasseur()
    Application.ScreenUpdating = False
    NbFeuil = Sheets.Count
    For i = 1 To NbFeuil
    If Sheets(i).[A1] = "X" Then
    'Impression de chaque feuille
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    End If
    Next i
    End Sub
    Cdlt
    0