Un vrai plein écran

Le
Steph
Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph
Vos réponses
Trier par : date / pertinence
ChrisV
Le #1966879
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph"
Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph




Steph
Le #1964707
Salut,

Mais c'est que ça marche en plus !!!
Merci beaucoup, j'ai encore appris quelque chose

Salutations,

Steph

"ChrisV" #
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph"
Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph








Starwing
Le #1964705
Content de te revoir ChrisV,
Souhaitons un retour prolongé...

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
ChrisV
Le #1964601
Salut Starwing,

Souhaitons un retour prolongé...
Content d'être de retour parmi vous,

Vous m'manquiez, snifff...! ;-)


ChrisV


"Starwing"
Content de te revoir ChrisV,
Souhaitons un retour prolongé...

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--




Ctitout
Le #1964566
Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en plein
écran
que faut il faire je suis dans la mouïse

merci
---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°

ChrisV wrote:
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph"
Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans
la barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph



--


ChrisV
Le #1966863
Bonjour Ctitout,

Excel étant ouvert, Alt+F11, puis dans le fenêtre de VBE, Insertion/Module
Sous la partie (Général) colle le code suivant:

Sub reviUnJP
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

puis, F5


ChrisV


"Ctitout"
Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en plein
écran
que faut il faire je suis dans la mouïse

merci
---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°


Ctitout
Le #1965045
Bonsoir
ouf merci
cela fonctionne
bonne soirée


---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°

ChrisV wrote:
Bonjour Ctitout,

Excel étant ouvert, Alt+F11, puis dans le fenêtre de VBE,
Insertion/Module Sous la partie (Général) colle le code suivant:

Sub reviUnJP
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

puis, F5


ChrisV


"Ctitout"
Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en
plein écran
que faut il faire je suis dans la mouïse





Publicité
Poster une réponse
Anonyme