Bonsoir à toutes et à tous,
J'ai rédigé une petite macro qui me supprime, entre autres, les barres d'outils, d'état et de formule à l'ouverture d'un fichier spécifique.
Je ne trouve pas la syntaxe pour faire exécuter l'inverse avant la fermeture afin de rétablir l'environnement de travail habituel
Je voudrais qlq chose comme :
BeeforClose
.DisplayFormulaBar = True
etc...
Une petite bougie m'apporterait la clarté...
Message édité par: jepi67, à: 01/06/2005 22:40
J'ai rédigé une petite macro qui me supprime, entre autres, les barres d'outils, d'état et de formule à l'ouverture d'un fichier spécifique.
Je ne trouve pas la syntaxe pour faire exécuter l'inverse avant la fermeture afin de rétablir l'environnement de travail habituel
Code:
Option Explicit
' Macro du 11/05/2005 par Jepi67
Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMinimized
UsfInfo.Show
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
Application.CommandBars('Standard').Visible = False
Application.CommandBars('Formatting').Visible = False
End Sub
BeeforClose
.DisplayFormulaBar = True
etc...
Une petite bougie m'apporterait la clarté...
Message édité par: jepi67, à: 01/06/2005 22:40