Paramètres par défaut

[JC17]

(re-)Bonjour tout le monde,
J'ai créé une macro qui se lance à l'ouverture de mon fichier afin de mettre les paramètres comme je le souhaite. Par contre, je n'arrive pas à faire en sorte que la fermeture du fichier entraine la remise à défaut de ces paramètres (annulation des paramètres mis en place à l'ouverture).

Concrètement :
Dans ThisWorkbook,

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayWorkbookTabs = False
    End With
     Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
End Sub

Comment faire pour que quand je ferme, ça me vire le plein écran et me remette le reste (gridlines, en-têtes, etc..).

Si quelqu'un peut me donner une solution (qui j'imagine doit être fort simple)...

Merci par avance
JC

 

[PascalXLD]

Re : Paramètres par défaut

Bonjour

tu fais l'inverse dans le beforeclose du workbook

 

[JC17]

Re : Paramètres par défaut

Rebonjour Pascal,
Décidément, heureusement que tu es là aujourd'hui...😛

Malgré tout, j'ai fais ce que (je pense) tu as dit mais ça ne marche pas...
J'ai fait, dans This Workbook,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
With ActiveWindow
       .DisplayGridlines = True
      .DisplayHeadings = True
     .DisplayWorkbookTabs = True
End With
 Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub

Me suis-je trompé quelque part? Dois-je affecter un code quelconque à mon (mes) bouton(s) de fermetures?
Merci par avance,
JC

 

[JC17]

Re : Paramètres par défaut

En fait, j'ai surtout l'impression que c'est mon "plein écran" qui ne se désactive pas...

 

[PascalXLD]

Re : Paramètres par défaut

Re

Je viens de faire un test et ça marche bien pour moi

 

[JC17]

Re : Paramètres par défaut

Ah bon..?
Je dois avoir une couille dans mon pâté...
Bon bhein tant pis ... Merci quand même pour le temps que tu m'as consacré.
Bonne continuation et à bientôt.

 

[PascalXLD]

Re : Paramètres par défaut

Re

tiens mon classeur de test

 

[JC17]

Re : Paramètres par défaut

En fait, ma fermeture de fichier ce fait par un bouton via un USF... Penses-tu que ce soit la raison pour laquelle ça marche pas??

 

[PascalXLD]

Re : Paramètres par défaut

Re

tout dépend du code

Mais dans ce cas là tu mets ton code dans le code de ton bouton et non dans le beforeclose

 

[JC17]

Re : Paramètres par défaut

Bon bhé je crois que mon fichier a vraiment décidé de me casser les c****..
Même comme ça, ça ne marche pas...