Bug à l'ouverture de mon doc (module plein ecran...)

[pierre]

bonjour à tt le monde,

ci-dessous le code que j'ai mis pour l'ouverture de mon doc
celui est composé d'onglets contenant des données et d'onglets contenant des graphiques
tout est ok lorsque le doc se lance sur une feuille de données, mais ça bug si il se lance sur une feuille "CHart" là où j'ai mes graphiques
Je ne comprends pas pourquoi
merci beaucoup d'avance pour votre aide
pierre


Option Explicit

Private Sub Workbook_Open()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayFormulas = False
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = True
.DisplayWorkbookTabs = True
End With
ActiveSheet.DisplayAutomaticPageBreaks = True
Application.ShowWindowsInTaskbar = False
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayFormulas = True
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = False
.DisplayWorkbookTabs = False
End With
ActiveSheet.DisplayAutomaticPageBreaks = False
Application.ShowWindowsInTaskbar = True
Application.CommandBars("Full Screen").Visible = False
End Sub

 

[@+Thierry]

Salut Pierre, le Forum

C'est tout à fait normal, car un Chart n'est pas une Feuille et ne contient pas surtout toutes les Propriétés qu'une WorkSheet peut posséder...

Astuce : Tu selectionnes une Feuille "Worksheets" en première action de ton Workbook_Open.... Ou encore mieux, tu le fais en sortant avec le Workbook_BeforeClose et tu penses aussi à mettre ThisWorkBook.Save

Bon Dimanche
@+Thierry