Menu

VBA sortir du plein écran [Résolu]

Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
- - Dernière réponse : Anthelm
Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
- 18 déc. 2018 à 23:03
Bonjour,

J'ai mis quelques formules dans un fichier pour permettre d'afficher excel en plein écran et sans la barre de menu.

Problème, quand j'ouvre un autre fichier, j'ai l'impression que cette configuration est conservée. C'est normal?

Je dois ajouter en VBA un affichage "normal" à la fermeture du fichier que j'ai créé, ce serait suffisant?

Configuration: Windows / Firefox 64.0
Afficher la suite 

Votre réponse

3 réponses

Messages postés
7722
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
23 avril 2019
1158
0
Merci
Bonjour,

« J'ai mis quelques formules dans un fichier pour permettre d'afficher excel en plein écran et sans la barre de menu.» C'est très surprenant !!!

Quelles formules emploies-tu pour cela ?
Anthelm
Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
1 -
'A l'ouverture du fichier, ouvrir sur la feuille "Saisie"
Private Sub Workbook_Open()

Sheets("Saisie").Select
Range("C45").Value = 0
Sheets("Saisie").Select
Range("C45").Select
ActiveWindow.Zoom = 75
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Application.DisplayFullScreen = True
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Anthelm
Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
1 -
C'est un peu moche, désolé... Je la réécrirais un peu mieux à un moment...
Commenter la réponse de Patrice33740
Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
1
0
Merci
Oui bon effectivement c'était ça.

J'ai ajouté:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True

End Sub

Et je n'ai plus de soucis.
Commenter la réponse de Anthelm
Messages postés
16895
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 mai 2019
3456
0
Merci
Bonsoir,

tu peux simplifier et ajouter une gestion d'erreur à l'ouverture comme à la fermeture pour éviter le plantage d'Excel

Private Sub Workbook_Open()
on error resume next
Sheets("Saisie").Select
Sheets("Saisie").Range("C45").Value = 0
ActiveWindow.Zoom = 75
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Application.DisplayFullScreen = True 'masque le ruban
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
End Sub


et à la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.DisplayFullScreen = False 'rétabli le Ruban
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
End Sub
A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...
Anthelm
Messages postés
146
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
11 mai 2019
1 -
Bonsoir! Merci de ta réponse!

Cela donne un résultat différent de ce que j'ai bricolé, ou c'est la même chose en plus joli? :)
Commenter la réponse de Mike-31