Fullscreen... mais uniquement le classeur concerné

Bonjour les passionnés.

En bref, j'aime que les fichiers de travail soient en Fullscreen, cela permet d'avoir une meilleure visibilité et se concentrer sur l'encodage.

J'ai un script qui fait bien le job:

Sub FullScreen()
    On Error Resume Next
    With Application
       .DisplayFormulaBar = False
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", false)"
        .WindowState = xlMaximized
        ActiveWindow.DisplayHeadings = True
    End With

End Sub

cependant, je me suis aperçu que tous les classeurs Excel ouverts après celui-ci seront aussi en fullscreen !!

J'aimerais éviter cela.

J'ai tenté de contourner le problème mais cela ne fonctionne pas comme je voudrais (mais c'est mieux qu'avant):

Dans ThisWorkBook:

Private Sub Workbook_Activate()
    ' Set full screen when this workbook is activated
    SetFullScreen ThisWorkbook
End Sub

Private Sub Workbook_Deactivate()
    ' Reset screen settings when this workbook is deactivated
    ResetScreen ThisWorkbook
End Sub

Avec dans un Module:

Sub SetFullScreen(wb As Workbook)
    ' Hide the formula bar only if it was originally visible in this workbook
    If OriginalFormulaBarState Then
        wb.Application.DisplayFormulaBar = False
    End If

    ' Hide the ribbon
    wb.Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", false)"

    ' Maximize the Excel window
    wb.Application.WindowState = xlMaximized

    ' Ensure row and column headings are visible
    wb.Windows(1).DisplayHeadings = True
End Sub

Sub ResetScreen(wb As Workbook)
    ' Restore the original state of the formula bar for this workbook
    wb.Application.DisplayFormulaBar = OriginalFormulaBarState

    ' Show the ribbon
    wb.Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", true)"

    ' Restore window state (normal window)
    wb.Application.WindowState = xlNormal

    ' Ensure row and column headings are visible
    wb.Windows(1).DisplayHeadings = True
End Sub

En fait j'ai surtout un problème de barre de formule...

Des idées?

Pour rappel, uniquement le classeur en question devrait être en fullscreen, les autres classeurs ouverts en même temps ou après (ou avant) devraient rester tels quels...

Merci pour vos conseils.

Bonjour,

J'ai fait par le passé le même genre de manip, mais j'avais utilisé l'instruction

Application.DisplayFullScreen = True

Pour votre souci de barre de formule, pourquoi n'utilisez vous pas simplement

Application.DisplayFormulaBar = False

(à remettre à TRUE si vous quittez le classeur) plutot que l'instruction Originalformula.....

Cela semble mieux se comporter. Merci

Cependant, la barre des formules reste dans mon fichier en fullscreen

Cependant, la barre des formules reste dans mon fichier en fullscreen

Heu non, vous avez ajouté la deuxième instruction que je vous ai donnée ?

Puis une chose, où déclarez-vous wb dans vos codes ?
puis mettre "wb" devant application ne peut pas fonctionner

EDIT : Plutot que de passer des codes de Thisworkbook à un module, mettez ceci dans THISWORKBOOK

Private Sub Workbook_Activate()
    ' Set full screen when this workbook is activated
With Application
    .DisplayFormulaBar = False
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", false)"
    .WindowState = xlMaximized
End With
End Sub

et ceci en dessous pour la désactivation

Private Sub Workbook_deActivate()
' Set full screen when this workbook is activated
With Application
    .DisplayFormulaBar = True
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", true)"
    .WindowState = xlMaximized
end with
End Sub

Merci pour votre aide.

J'ai suivi votre dernière instruction.

Cela fonctionne hormis: selection autre workbook = formulabar s'active (dans tous les workbook); sélection workbook avec formule Fullscreen, formulabar disparait de tous les workbook.

Avez-vous une piste, j'essaye de chipoter mais en vain

Merci

selection autre workbook = formulabar s'active (dans tous les workbook);......

Cela c'est logique si vous quittez votre classeur pour passer sur un autre ce n'est pas pour aller désactiver les barres de formules ou autre chose dans les autres classeurs
A moins que j'ai mal compris ce que vous voulez vous n'avez besoin que de ces deux codes.
Peut-être que vous voulez que tous les classeurs soient concernés ?

Si je relis le titre de votre demande... c'est uniquement sur le classeur contenant les codes.

Merci bcp pour votre patience. Votre post de 12:09 fonctionne:

workbook1 contenant le code s'ouvre en fullscreen (sans formulabar OK). Workbook 1 reste ouvert. Lorsque on ouvre workbook2 par la suite (ne contenant pas le code), il apparaît en mode non Fullscreen OK (+formulabar visible OK).

MAIS:

Workbook 1: formulabar apparaît

Je sélectionne Workbook 1: Formulabar disparaît dans Workbook 1 (logique) & dans Workbook2

Je sélectionne Workbook 2: Formulabar apparaît dans Workbook 1 & 2

etc.

Alors que dans Workbook 1 la formulabar devrait toujours être non visible et dans Workbook2 toujours visible

Alors si cela peut être résolu par un simple code, je prends. Sinon j'abandonne car j'ai tenté plusieurs manips, VBA ne veut rien savoir...

Vous ne devez avoir que les deux codes que je vous ai donné dans Thisworkbook du workbook1

Est-ce le cas parce que si j'ai un classeur avec ces deux codes
Le test à faire :
1. J'ouvre le classeur contenant les deux codes --> Tout est masqué (full screen et formula bar et menu)
2. J'ouvre un nouveau (Faites CTRL + N sur le clavier). Rien n'est masqué
3. Pour basculer d'un classeur vers l'autre --> utilisez les touches CTRL + TAB

Dites moi

Bien entendu, dans Thisworkbook.

1. OK

2. OK

3. lorsque je suis sur workbook 2, la formulabar Workbook1 s'affiche (juste la formulabar, le reste du fullscreen fonctionne et reste), lorsque je vais dans Workbook 1 la formulabar disparait de Workbook1 & 2. et ainsi de suite

Je ne comprends pas. Comment voulez vous voir la barre de formule du workbook1 lorsque vous êtes en fullscreen sur le workbook2

1. J'ouvre le fichier contenant les codes, cela me donne ceci

2. je fais CTRL + TAB, cela m'affiche le workbook2 comme ceci

Si je refais CTRL + TAB, cela redonne la vue au point 1

Qu'est ce qui n'es pas correct ?