Sujet Précédent Sujet Suivant

VBA sortir du plein écran

Résolu/Fermé
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 17 déc. 2018 à 19:01
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 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
A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
17 déc. 2018 à 19:14
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 ?
0
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
17 déc. 2018 à 19:39
'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
0
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
17 déc. 2018 à 19:40
C'est un peu moche, désolé... Je la réécrirais un peu mieux à un moment...
0
Réponse 2 / 3
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
17 déc. 2018 à 20:07
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.
0
Réponse 3 / 3
Mike-31 Messages postés 18317 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
Modifié le 17 déc. 2018 à 21:33
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
0
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
18 déc. 2018 à 23:03
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? :)
0