Fractionner base de données

'masque Ruban
Private Sub Cmd_no_ribon_Click()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

'affiche Ruban
Private Sub Cmd_Ruban_on_Click()
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

'Cache Volet de navigation
Private Sub Cmd_Windows_Click()
    DoCmd.NavigateTo "acNavigationCategoryObjectType"          'Select Navigation Pane
    DoCmd.RunCommand acCmdWindowHide                            'Hide selected
End Sub

'Affiche Volet de navigation
Private Sub Cmd_Windows_Affiche_volet_Navigtion_Click()
    DoCmd.SelectObject acTable, , True
End Sub