XL 2019 Imprimer une feuille via userform

Kevin38 · 29 Novembre 2022

Bonjour à tous,

Je sollicite votre aide pour ma commande ci-dessous; j'ai mon "userform" et souhaite imprimer une feuille de mon classeur. Mais mon soucis est que quand je click sur le bouton imprimer, ma feuille à imprimer s'affiche bien en arrière plan (Aperçu avant impression) et le "userform" reste active en premier plan dont je ne vois pas ma feuille et je ne parviens pas à fermer le "userform" active.

La macro pour imprimer

VB:

Sub BOUTON_FrmClient_Impression()
Sheets("CLIENT").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, Preview:=True
End Sub

et le bouton Imprimer qui se trouve dans le "userform"

VB:

Private Sub CommandButton1_Click()
Call BOUTON_FrmClient_Impression
Sheets("CLIENT").Activate
Unload userform
End Sub

Par la même occasion je souhaite vous demander est-il possible d'ajouter un "Info-bulle..." à un "CommandButton1_Click" qui se trouve dans un "userform"

merci
@+

Dranreb · 1 Décembre 2022

Chez moi ceci marche :

VB:

Private Sub CommandButton1_Click()
   Me.Hide
   Sheets("CLIENT").Activate
   Application.DisplayFullScreen = False
   Call BOUTON_FrmClient_Impression
   Sheets("ACCUEIL").Activate
   Application.DisplayFullScreen = True
   Me.Show
   End Sub

Remarque: j'ai mis la propriété ShowModal du UserForm1 à False.

Dranreb · 1 Décembre 2022

Chez moi ceci marche :

VB:

Private Sub CommandButton1_Click()
   Me.Hide
   Sheets("CLIENT").Activate
   Application.DisplayFullScreen = False
   Call BOUTON_FrmClient_Impression
   Sheets("ACCUEIL").Activate
   Application.DisplayFullScreen = True
   Me.Show
   End Sub

Remarque: j'ai mis la propriété ShowModal du UserForm1 à False.

Kevin38 · 1 Décembre 2022

Dranreb à dit:
Chez moi ceci marche :

VB:

Private Sub CommandButton1_Click() Me.Hide Sheets("CLIENT").Activate Application.DisplayFullScreen = False Call BOUTON_FrmClient_Impression Sheets("ACCUEIL").Activate Application.DisplayFullScreen = True Me.Show End Sub

Remarque: j'ai mis la propriété ShowModal du UserForm1 à False.

Nickel! Fonctionne parfaitement.
Merci Dranreb

@+
Kevin

Kevin38 · 2 Décembre 2022

Dranreb à dit:
Chez moi ceci marche :

VB:

Private Sub CommandButton1_Click() Me.Hide Sheets("CLIENT").Activate Application.DisplayFullScreen = False Call BOUTON_FrmClient_Impression Sheets("ACCUEIL").Activate Application.DisplayFullScreen = True Me.Show End Sub

Remarque: j'ai mis la propriété ShowModal du UserForm1 à False.

Bonjour Dranreb,

A titre d'information, "le code ci-dessous fonctionne parfaitement" mais un petit soucis (imaginons pour une raison quelconque Excel est déjà en ruban masqué et que j'ouvre le classeur) là le code ne réponds plus peut-être une idée ?

VB:

Private Sub CommandButton1_Click()
   Me.Hide
   Sheets("CLIENT").Activate
   Application.DisplayFullScreen = False
   ActiveWindow.DisplayHeadings = True
   ActiveWindow.DisplayWorkbookTabs = True
   Call BOUTON_FrmClient_Impression
   Sheets("ACCUEIL").Activate
   Application.DisplayFullScreen = True
   Me.Show
   End Sub

Merci
@+

Dranreb · 2 Décembre 2022

Non. Je ne vois pas. Chez moi ça marche dans tous les cas
Remarque: les Sheets(…).Activate ne servent à rien.
Sheets("CLIENT").PrintPreview marche même si ce n'est pas la feuille active.

Kevin38 · 2 Décembre 2022

Dranreb à dit:
Non. Je ne vois pas. Chez moi ça marche dans tous les cas
Remarque: les Sheets(…).Activate ne servent à rien.
Sheets("CLIENT").PrintPreview marche même si ce n'est pas la feuille active.

Merci,

Même si vous ouvrez Excel, fermer le classeur vide et masqué le ruban et fermer n'importe quel classeur s'ouvrira avec un ruban masqué et c'est là le problème arrive.

Dranreb · 2 Décembre 2022

Joignez votre classeur. Là je ne comprends rien à vos problèmes.
Peut être devriez vous alouter des procédures dans le module ThisWorkbook
Et surtout, important, mettre ShowModal du UserForm à False pour que les Show ne bloquent jamais l'exécution.

Kevin38 · 2 Décembre 2022

Dranreb à dit:
Joignez votre classeur. Là je ne comprends rien à vos problèmes.
Peut être devriez vous alouter des procédures dans le module ThisWorkbook
Et surtout, important, mettre ShowModal du UserForm à False pour que les Show ne bloquent jamais l'exécution.

Re,

Pour le "userform" sans soucis et ShowModal à False. Mais comme j'utilise aussi pour imprimer d'autre feuille sinon ça va.

Merci et bon week-end
@+

XL 2019 Imprimer une feuille via userform

Kevin38

XLDnaute Nouveau

Dranreb

Dranreb

XLDnaute Barbatruc

Kevin38

XLDnaute Nouveau

Kevin38

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Kevin38

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Kevin38

XLDnaute Nouveau

Discussions similaires