XL 2016 masquer qu'un seul classeur et laisser l'autre visible

dindin · 23 Août 2020

Bonjour
j'ai toujours un classeur excel d'ouvert en permanence .

je souhaiterai que si j'ouvre un 2 ème classeur, ce dernier reste masqué avec l'ouverture seulement d'un formulaire
et le 1er reste ouvert en permanance.
j'utilse ce code qui m'affiche une erreur :

VB:

Option Explicit

Private Sub Workbook_Open()
Application.ScreenUpdating = False
ActiveWindow.Visible = False
Windows(ActiveWorkbook.Name).Visible = False 'quand l'application se lance, le fichier excel devient invisible, mais reste ouvert
accueil.Show 'et la boite de dialogue d'accueil apparait
Application.ScreenUpdating = True
End Sub

je joins mon fichier
j'aurais besoin de votre aide
merci d'avance

job75 · 23 Août 2020

Bonjour dindin,

Voyez le fichier joint et ce code dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
Application.OnTime 1, "ThisWorkbook.USF" 'exécution différée
End Sub

Sub USF()
ActiveWindow.WindowState = xlMinimized
UserForm1.Show 0 'non modal
End Sub

A+

dindin · 24 Août 2020

Bonjour job75
Merci
Je regarde et vous tiens au courant

dindin · 24 Août 2020

merci pour le fichier
mon objectif était le suivant :
mon classeur 1 s'ouvre en premier et reste ouvert et quand j'ouvre le votre "Bonjour" ,ce dernier reste masqué et il n y a que son formulaire qui reste ouvert pour que je puisse travailler dessus.
d'aprés l'essai que je viens de faire.
le classeur Bonjour reste apparent ainsi que son formulaire.
Merci d'avance

job75 · 24 Août 2020

Bonjour dindin,

Masquer la fenêtre ne va pas, moi je la réduis, elle n'est visible que dans la barre des tâches.

Maintenant voyez ce fichier (2) où j'ai remplacé Workbook_Open par Workbook_Activate.

Quand un autre fichier est ouvert Bonjour(2).xlsm ne peut pas être activé.

A+

dindin · 24 Août 2020

Merci

XL 2016 masquer qu'un seul classeur et laisser l'autre visible

dindin

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

dindin

XLDnaute Occasionnel

dindin

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

dindin

XLDnaute Occasionnel

Discussions similaires