VBA sortir du plein écran
Résolu
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?
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
-
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 ?-
'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 -
-
-
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. -
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
