Barre des taches

[Edouard]

Bonjour le forum et bon week end

'Oblige l'ouverture du classeur plein écran
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
'Oblige la fermeture du classeur plein écran
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

Je suis à la recherche d’un code qui en plus viendrait aussi masquer la barre des taches à l’ouverture , si ce n’est pas déjà fait, et la remettrait dans l’état ou il la trouvée à la fermeture .

Merci d’avance
A+

 

[Zon]

Salut,

Colles ceci dans un module standard,

Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWnd1&, ByVal hWnd2&, ByVal lpsz1$, ByVal lpsz2$)
Private Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)

Sub PleinEcran(Optional N&)
Application.DisplayFullScreen = N = 0
ShowWindow FindWindowEx(0, 0, "Shell_TrayWnd", vbNullString), N
End Sub


puis modfies tes évènementielles,

Oblige l'ouverture du classeur plein écran
Private Sub Workbook_Open()
pleinecran
End Sub
'Oblige la fermeture du classeur plein écran
Private Sub Workbook_BeforeClose(Cancel As Boolean)
pleinecran 5
End Sub

A+++

 

[Edouard]

Bonjour Zon et le forum

J’ai essayé ton code, malheureusement il bloque avec le message suivant :
Erreur de compilation, attendu : fin d’instruction (avec en surbrillance le 2 eme Private Declare Function……)

Lorsque je recopie dans le module tout s’écrit en rouge sauf :
Sub PleinEcran(Optional N&) Application.DisplayFullScreen=N=0

Si cela te facilite la tache je peux t’envoyer mon application allégé.
A+

 

[Zon]

Salut,

Il doit manquer une parenthèse. Pour éviter tout problème, fais un export import du module Barrdestaches dans le fichier ci-joint. Dans cet exemple on passe par le bouton de la feuil1.

A+++

 

[Edouard]

Ok Zon

Dans ton exemple avec le bouton ça marche ;
Ce que j’aurai voulu c’est que ce soit l’ouverture du classeur plein écran qui provoque la disparition de la barre des taches ; que l’on puisse la faire apparaître si on en a besoin, classeur ouvert, en pointant comme d’habitude au bas de l’écran et quelle réapparaisse à la fermeture du classeur.
Si c’est possible.
Je serai muet pendant une semaine le temps d’aller en vacances. Bon Noël.
A+