VBA sortir du plein écran [Résolu/Fermé]

Signaler
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
-
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
-
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

3 réponses

Messages postés
8162
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 août 2020
1 444
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 ?
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
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
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
1
C'est un peu moche, désolé... Je la réécrirais un peu mieux à un moment...
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
1
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.
Messages postés
17158
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
5 août 2020
4 160
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...
Messages postés
185
Date d'inscription
lundi 15 octobre 2018
Statut
Membre
Dernière intervention
21 juin 2020
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? :)