impression multiple filtre

[sebastien450]

Bonjour,

J'aimerais que ma macro me permettre d'imprimer pour chaque choix dans ma listbox le document, et cela automatiquement dés la premiere selection du pilote faite... Comment faire ? Je peut éventuellement enregistrer les documents en pdf puis tous imprimer ?

 

[job75]

Re : impression multiple filtre

Re,

(...) mais elle sera aussi exécutée les jours suivant à 10:00 si l'on ne ferme pas le fichier avant.

Pour éviter cela ajouter en fin de macro impress :

Sub impress()
'-------
On Error Resume Next
Application.OnTime TimeValue("10:0"), "impress", , False
End Sub

A+

 

[job75]

Re : impression multiple filtre

Re,

J'ai compliqué inutilement, il suffit de placer dans ThisWorkbook :

Private Sub Workbook_Open()
If Weekday(Date) = 2 Then Application.OnTime Date + TimeValue("10:0"), "impress"
End Sub

Dans tous les cas la macro n'est exécutée pas plus une fois.

Bonne nuit.