Barre perso qui disparaît malgré = True

[guy72]

Bonjour,

Dans le code suivant :

J'ai la ligne : "Application.CommandBars("Réseau").Visible = True" qui me permet (normalement) de ne pas faire disparaître ma barre "Réseau", mais ce n'est pas le cas, elle disparaît, pourquoi ?

'Affichage plein écran

Sub Masquer()
Dim rep As Variant
Dim cmdB As CommandBar

Application.ScreenUpdating = False

'Barre perso du réseau
Application.CommandBars("Réseau").Visible = True

For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB

With Application
'Barre d'Excel
.DisplayFullScreen = True
'Barre de formule
.DisplayFormulaBar = False
End With

With ActiveWindow
.DisplayWorkbookTabs = False
'Ligne et colonne
.DisplayHeadings = False
'Ascenseur vertical
.DisplayVerticalScrollBar = False
'Ascenseur vertical
.DisplayHorizontalScrollBar = False
End With

End Sub

'Affichage normal

Sub Afficher()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB


With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
'.DisplayVerticalScrollBar = True
'.DisplayHorizontalScrollBar = True
End With
With Application
.DisplayFullScreen = False
'.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
DoEvents
End Sub


Merci de votre aide

Guy

 

[PascalXLD]

Re : Barre perso qui disparaît malgré = True

Bonjour

Pas testé mais vu que tu te mets en fullscreen=true ensuite, tu ne peux plus voir ta barre

 

[guy72]

Re : Barre perso qui disparaît malgré = True

Bonjour,
Voici une solution.
Sub Aut😵pen()
Dim rep As Variant
Dim cmdB As CommandBar
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB

With Application
.DisplayFullScreen = True
'.DisplayStatusBar = False
.DisplayFormulaBar = False

.CommandBars("Réseau").Enabled = True
.CommandBars("Réseau").Visible = True

End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
End With

End Sub
Merci de votre aide