Microsoft 365 Masquer le classeur à l'affichage de la form

[lolobo]

Bonjour à tous,

après avoir écumé les forums, je ne parviens pas à une solution satisfaisante.
Je souhaite que le classeur Excel ne soit pas visible à l'écran (ou aux écrans si il y en a plusieurs) et que seul l'Userform s'affiche.

- L'option Application.Visible = false ne convient pas car dans ce cas l'icone de l'application n'apparaît plus dans la barre des tâches et il faudrait utiliser la combinaison Alt + Tab pour la remettre au premier plan.

- Si je mets l'application en plein écran pour masquer Excel, le simple déplacement de la fenêtre suffit à "démasquer" la feuille.

- Si j'empêche le déplacement de l'Userform, l'utilisateur ne peut plus naviguer entre différentes applications sans avoir à les sélectionner via la barre des tâches.

- L'affichage d'une feuille vierge derrière l'Userform ne serait qu'un pis aller.

Auriez-vous la solution permettant de résoudre cette difficulté sans qu'elle engendre les conséquences citées plus haut ?
L'idéal étant que le déplacement de l'Userform entraîne simultanément celui de la feuille Excel qui y serait ancrée.

D'avance merci.

 

[patricktoulon]

Bonjour
ben d’après ce que je viens de lire je pense d'abords qu'il faudrait savoir ce que tu veux

tu peux pas avoir le beurre ,l'argent du beurre , et le C.. de la crémière comme on dis chez nous

tu masque l'app c'est bien pour une raison non? pourquoi voudrais tu que l'utilisateur puisse y avoir accès

donc visible false a l'activate du userform et visible true au query_close du userform

Auriez-vous la solution permettant de résoudre cette difficulté sans qu'elle engendre les conséquences citées plus haut ?
L'idéal étant que le déplacement de l'Userform entraîne simultanément celui de la feuille Excel qui y serait ancrée.

ben c'est simple
dans l’événement

Dim propert
'----------------------------------------------------------------------------------------------------
Private Sub UserForm_Activate()    'evenement quand le userform s'active
    With Application
    If Not IsArray(propert) Then propert = Array(.WindowState, .Left, .Top, .Width, .Height)   'on mémorise la position initiale de la fenêtre application
        'on la dimentionne pareille que le userform
        .Width = Me.Width
        .Height = Me.Height
        .Top = Me.Top
        .Left = Me.Left
    End With
End Sub
'---------------------------------------------------------------------------------------------------
'evenement quand le userform se deplace
Private Sub UserForm_Layout()    
    With Application
    .Top = Me.Top
    .Left = Me.Left
End With
End Sub
'---------------------------------------------------------------------------------------------------
' on remet la fentre application comme avant a la fermeture du userform
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     With Application
        .WindowState = propert(0)
        If propert(0) <> xlMaximized Then
            .Left = propert(1)
            .Top = propert(2)
            .Width = propert(3)
            .Height = propert(4)
        End If
    End With
End Sub

la fentre de l'application sera invisible tant que le userform sera affiché

 

[Hasco]

bonjour,

Si je m'en tiens au titre de la demande, masquage du classeur (pas de l'application) à l'initialisation du userForm et démasquage avant fermeture.
A voir...

Private Sub UserForm_Initialize()
ThisWorkbook.Windows(1).Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 ThisWorkbook.Windows(1).Visible = True
End Sub

Cordialement

 

[lolobo]

Bonjour et merci pour vos retours,

Roblochon (j'adore), la feuille Excel reste en arrière plan.
patricktoulon, erreur dans le Layout "La méthode Top de l'objet Application a échoué"

Quelque chose à modifier ?

 

[Hasco]

Re,

Voyez le fichier joint.

 

[lolobo]

"Impossible d'ouvrir le fichier. Le fichier est corrompu" !!!

 

[Hasco]

Je viens de tester sur deux ordis et ça marche! j'ai rééditer le fichier du post précédent et changé son nom.

 

[lolobo]

Ok, merci mais il n'est pas joint.

 

[Hasco]

Re,

Au temps pour moi!
Alors je le joins ici.

 

[lolobo]

Cette fois est la bonne.
Mais peut-être me suis-je mal exprimé en parlant de masquer le classeur.
C'est Excel que je souhaite masquer.
Votre code masque la feuille Excel mais pas Excel.

 

[lolobo]

La proposition de patricktoulon semblait intéressante mais pourquoi cette erreur ?

 

[lolobo]

J'ai trouvé cette option qui répond à mon besoin.

Option Explicit

Private Sub UserForm_Initialize()
    MasquerAppli
End Sub

Private Sub UserForm_Layout()
    MasquerAppli
End Sub

Private Sub MasquerAppli()
    With Application
        .WindowState = xlNormal
        .Top = Me.Top
        .Left = Me.Left
        .Height = Me.Height
        .Width = Me.Width
    End With
End Sub

Merci à vous deux.