Microsoft 365 Réduire le ruban

[Diane272727]

Bonjour,
Je souhaite réduire le ruban à l'ouverture d'un fichier Excel (pour voir le maximum de données sur l'écran.
Par contre je voudrai que l'utilisateur puisse enregistrer le fichier et donc il faudrait garder le menu.

Autre idée : serait il possible d'ajouter un bouton VBA pour afficher ou masquer le ruban ?
Merci beaucoup pour votre aide

 

[patricktoulon]

Bonjour
sauf jouer avec les api depuis office 2010 ça n'est plus possible

de plus
a quoi te servirait les onglets si tu ne peux plus voir les outils qu'ils développe dans le ruban ?

tu peux masquer eventuellement le ruban (cela dit c'est ce que tu a déjà sous une certaine forme )
et ajouter une item au menu contextuel enregistrer sous (voir plus)

 

[Usine à gaz]

Bonjour,
Je souhaite réduire le ruban à l'ouverture d'un fichier Excel (pour voir le maximum de données sur l'écran.
Par contre je voudrai que l'utilisateur puisse enregistrer le fichier et donc il faudrait garder le menu.

Regarde la pièce jointe 1179971

Autre idée : serait il possible d'ajouter un bouton VBA pour afficher ou masquer le ruban ?
Merci beaucoup pour votre aide

Bjr Diane272727
Peut-être comme ça...
Voir classeur joint...

 

[patricktoulon]

re
bonjour lionel
non c'est pas bon ça vire les onglet aussi
sinon je lui aurait donné ceci

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
        End With
    End With
End Sub

 

[Usine à gaz]

re
bonjour lionel
non c'est pas bon ça vire les onglet aussi
sinon je lui aurait donné ceci

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
        End With
    End With
End Sub

Bjr Patrick
Chez moi ça fonctionne très bien et ça ne vire pas les onglets

 

[Usine à gaz]

Si quelqu'un voulait bien tester, ce serait bien de nous dire ce qu'il se passe chez lui ?

 

[patricktoulon]

re

c'est peut être ta version excel qui fait que mais depuis que j'utilise cette macro4 pour le hide ribbon
elle a toujours rendu invisible les onglets
et pour info c'est application.windowstate pas activewindow.windowstate

perso voilà la mienne tu la lance pour le contraire à chaque fois (une seul sub)

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
            .DisplayHorizontalScrollBar = Not Bool
            .DisplayVerticalScrollBar = Not Bool
        End With
    End With
End Sub

et au visible elle restitue le windowstate initial

 

[Usine à gaz]

re
Regarde la pièce jointe 1179982

c'est peut être ta version excel qui fait que mais depuis que j'utilise cette macro4 pour le hide ribbon
elle a toujours rendu invisible les onglets
et pour info c'est application.windowstate pas activewindow.windowstate

perso voilà la mienne tu la lance pour le contraire à chaque fois (une seul sub)

Sub Ribbonvisible()
    Dim Bool: Static Wstate As Long
    With Application
        Bool = Application.CommandBars("ribbon").Visible
        If Bool Then Wstate = .WindowState
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")"
        .DisplayScrollBars = Not Bool
        .DisplayFormulaBar = Not Bool
        .DisplayStatusBar = Not Bool
        .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool))
        With ActiveWindow
            .DisplayHeadings = Not Bool
            .DisplayWorkbookTabs = Not Bool
            .DisplayHorizontalScrollBar = Not Bool
            .DisplayVerticalScrollBar = Not Bool
        End With
    End With
End Sub

et au visible elle restitue le windowstate initial

OUI, j'ai compris, ce que souhaite Diane272727, c'est ça :

et ça, je ne sais pas faire

 

[Usine à gaz]

ou ça :

Je ne sais pas faire

 

[Diane272727]

Merci pour vos gentils retours
Les boutons déjà sont très bien.

L'idée en fait est que j'aimerait avoir le maximum de cellules sur l'écran, mais de pouvoir enregistrer le fichier (c'est pour cela que je voulais garder les menus pour avoir encore accès au menu "Enregistrer") et sans pouvoir modifier la mise en page etc

Sinon, est ce qu'il serait possible de ne garder que le menu "Enregistrer" ?
Avez vous une idée ?

 

[Usine à gaz]

Re :
"Sinon, est ce qu'il serait possible de ne garder que le menu "Enregistrer" ?'

ça, c'est facile...
Voire fichier joint

 

[Diane272727]

Re :
"Sinon, est ce qu'il serait possible de ne garder que le menu "Enregistrer" ?'

ça, c'est facile...
Voire fichier joint

Merci mais en fait, je voudrait garder que le menu "Enregistrer" (et pas un bouton "Enregister")

 

[Usine à gaz]

Merci mais en fait, je voudrait garder que le menu "Enregistrer" (et pas un bouton "Enregister")
Regarde la pièce jointe 1180003

ça, je ne sais pas faire

 

[Diane272727]

Après réflexion, le bouton "Enregistrer" c’est pas mal
Donc un grand merci à tous

 

[Staple1600]

Bonjour le fil

Pourquoi sortir le VBA quand Excel a prévu la chose...?

Il suffit de cliquer sur cette petite flèche tout à droite de l'écran
(ou d'utiliser le raccourci clavier)