Discussion :

[Milyshyn76]

Bonjour à tous,

j'ai créée une macro Autoexec permettant de cacher le ruban de MS Access, sauf qu'il ne fonctionne que lorsque que je l’exécute manuellement cette dernière dans la base de données.

Si j'ouvre la base de données automatiquement, la macro Autoexec s'exécute bien, cependant le ruban est toujours affiché.

Voici la fonction appelée dans la macro et permettant de cacher le ruban Access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Mo6_MasqueToutesBarres_()
'TODO : Emilie Sanchez - à supprimer
'TODO - On Error
'On Error Resume Next
'======================
Dim oCmdBar As Object
  For Each oCmdBar In Access.Application.CommandBars
    If oCmdBar.Visible = True And oCmdBar.Enabled = True Then
      DoCmd.ShowToolbar oCmdBar.Name, acToolbarNo
    End If
  Next
'======================
End Function

Merci d'avance pour votre aide.

[Jean-Philippe André]

Pour le ruban seul, la ligne suivante suffit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.ShowToolbar "Ribbon", acToolbarNo

[Milyshyn76]

Merci pour ta réponse.

En revanche le problème est que lorsque j'ouvre ma base de données directement en double cliquant sur le fichier, le bandeau s'affiche. En revanche, si j'exécute manuellement le code, le bandeau disparaît.


Je te remercie !

[User]

Bonjour,

Si vous disposez d'une formulaire d'accueil, pourquoi ne pas mettre le code sur ouverture de ce formulaire ?

Cdlt,

[Milyshyn76]

Non ça ne fonctionne pas malheureusement. C'est toujours le même problème si j'ouvre directement la base de données depuis le fichier.

[User]

Bonjour,

Vous avez essayé d'enlever le if dans votre code juste pour voir ?

Cdlt,

[Milyshyn76]

Oui sans succès. Est-ce que le bandeau ne s'afficherait pas parce qu'il un menu complément ?

[User]

Il suffit d'essayer votre code dans une autre base pour voir.

Cdlt,

[Milyshyn76]

Effectivement c'est le menu "Complément" qui empêche le ruban de se masquer.