Bonjour !
Je cherche actuellement à écrire un code pour que mon fichier Excel se mette automatiquement en plein écran à l'ouverture en cachant : barre de formules, grilles, titres et rubans; bref qu'il ne reste que la feuille Excel.
Voici le code que j'ai aujourd'hui :
Sub notice()
' notice Macro
Application.ScreenUpdating = False
Sheets("Notice").Visible = True
Sheets("Quotation").Visible = True
Sheets("Notice").Select
Range("A1").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End Sub
Problème : je n'ai aucune mise en plein écran lorsque j'ouvre mon fichier Excel.
Thomas
Je cherche actuellement à écrire un code pour que mon fichier Excel se mette automatiquement en plein écran à l'ouverture en cachant : barre de formules, grilles, titres et rubans; bref qu'il ne reste que la feuille Excel.
Voici le code que j'ai aujourd'hui :
Sub notice()
' notice Macro
Application.ScreenUpdating = False
Sheets("Notice").Visible = True
Sheets("Quotation").Visible = True
Sheets("Notice").Select
Range("A1").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End Sub
Problème : je n'ai aucune mise en plein écran lorsque j'ouvre mon fichier Excel.
Thomas