bonjour comment vous allez ?
j'ai mon code ci qui me permet d'imprimer mes feuilles (masquées)
je voudrais savoir comment faire l'apperçu avant impression et si possible affiche un message texte pour choisir les feuilles qu'on désires imprimer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub CommandButton7_Click() Dim Sht As Worksheet Application.ScreenUpdating = False For Each Sht In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")) Sht.Visible = xlSheetVisible Sht.PrintOut Copies:=1 Sht.Visible = xlSheetHidden Next Sht Application.ScreenUpdating = True End Sub
MErci de bien vouloir m'aider
Partager