Plein ecran dès ouverture

Bonjour,

Je crée un tableau de gestion de stock. J'aimerai que quand j'ouvre le fichier excel, la page d’accueil soit en plein écran.

Voici mon code mis sur un bouton bascule. Ca marche impec mais je voudrais qu'il soit "enfoncer" donc activer a l'ouverture.

Sub PleineEcran()

'Passage en plein écran en cliquant sur le bouton

Application.DisplayFullScreen = Feuil1.ToggleButtonAffichage.Value

'Masquage des elements : barre de défilement vertical et horizontale, barre de formule et en-tête

With ActiveWindow
    .DisplayHorizontalScrollBar = Not Feuil1.ToggleButtonAffichage.Value
    .DisplayVerticalScrollBar = Not Feuil1.ToggleButtonAffichage.Value
    .DisplayWorkbookTabs = Not Feuil1.ToggleButtonAffichage.Value
    .DisplayHeadings = Not Feuil1.ToggleButtonAffichage.Value
    End With

'Zoom sur formulaire suivant taille écran

    Range("a1:r33").Select
    ActiveWindow.Zoom = Feuil1.ToggleButtonAffichage.Value
    Range("a1").Select
End Sub

Bonsoir Juju45,

Placer le code ci-dessous dans le ThisWorkbook du fichier

Private Sub Workbook_Open()
Feuil1.ToggleButtonAffichage.Value = True
Call PleinEcran
End Sub

Superbe, ca fonctionne comme souhaité.

J'avais essayé avec un auto_open mais sans succès.

Merci à vous

Ravi pour toi