XL 2016 Filter et impression automatiser

Seddiki_adz

XLDnaute Impliqué
Bonsoir
j'ai besoin d'un code pour filtre et un code pour imprimer automatiser
Merci
 

Pièces jointes

  • filter et impresion1.xlsx
    21.7 KB · Affichages: 3
Solution
@Seddiki_adz

Tout est dans le code

VB:
Sub Impression()

Sheets("Feuil1").PrintPreview   'Visualise l'impression
'Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

Il te suffit de désactiver avec une apostrophe la 1ere ligne et d'activer la 2eme ligne

VB:
Sub Impression()

'Sheets("Feuil1").PrintPreview   'Visualise l'impression
Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

*Merci de ton retour

@Phil69970

Discussions similaires

Statistiques des forums

Discussions
312 101
Messages
2 085 297
Membres
102 855
dernier inscrit
creed