BJR
Voici le code que j'ai mis dans thisworkbook
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
merci par avance
seb
Salut Nonesofar
voici le code que j'ai insérer dans ma page d'ouverture appelée "choix"
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("choix").Activate
Application.DisplayFullScreen = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
mais celà ne fonctionne pas
merci par avance pour ton aide et conseils
seb