XlsheetveryHidden et impression

  • Initiateur de la discussion Initiateur de la discussion ZeH
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

ZeH

Guest
Bonjour à tous,

Un petit problème d'impression que je n'arrive pas à résoudre. Soit des feuilles commençant par "B" et invisibles à l'utilisateur que je voudrais imprimer tout en les gardant invisibles.

Voici le code en question, si quelqu'un peut m'aider à l'adapter.


Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
For i = 1 To TextBox1.Value
ActiveWorkbook.Worksheets(ComboBox1.Text).PrintOut
Next i
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
For i = 1 To ActiveWorkbook.Worksheets.Count
If Left(Worksheets(i).Name, 1) = "B" Then
If Worksheets(i).Visible = True Then
ComboBox1.AddItem ActiveWorkbook.Worksheets(i).Name
End If
End If
Next i
End Sub


Merci par avance
 
Bonjour zeh

Peut-être pourrai-tu utiliser
application.screenuptating= false
pour que to utilisateur ne voit pas ce qui ce passe.

ensuite
rend la feuille visible avant de l'imprimer
rebd la feuille invisible après

et au final application .screenuptading=true

Cela donne ca dans un exemple simplifier.
Sub deb()
Application.ScreenUpdating = False
Sheets("feuil1").Visible = True
Sheets("feuil1").PrintOut
Sheets("feuil1").Visible = False
Application.ScreenUpdating = False
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
288
Réponses
3
Affichages
197
Réponses
9
Affichages
202
Réponses
8
Affichages
235
Réponses
2
Affichages
125
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
148
Réponses
5
Affichages
187
Réponses
8
Affichages
478
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
508
Retour