Discussion :

[Tariq2014]

Bonjour tout le monde,

J'ai essayé de masquer le ruban d'access au démarrage en utilisant le code suivant:

Code :

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

DoCmd.ShowToolbar "Ribbon", acToolbarNo

Ça fonctionne immédiatement, mais lorsque je ré-ouvre mon application je vois que le ruban n'est pas masqué.

Est je dois ajouter d'autre chose ou le code n'est pas au bon endroit ?

Merci

[Invité]

Re

As-tu essayé de mettre ce code dans une fonction et de le lancer avec une macro AutExec ?

Philippe

[Tariq2014]

Bonjour Philipe,

Merci pour la réponse.

Au début j'ai mis le code

Code :

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

 DoCmd.ShowToolbar "Ribbon", acToolbarNo

sur l’événement chargement de mon formulaire d’accueil.

Après je l'ai mis dans une fonction dans un nouveau module, comme tu me l'as dit,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Public Sub MasquerRuban()
 
Option Compare Database
 
Option Explicit
 
Public Sub MasquerRuban()
 
DoCmd.ShowToolbar "Ribbon", acToolbarNo
 
End Sub

Ensuite j'ai crée un macro AutoExec de type exécuter un code, ensuite j'ai trouvé ma fonction via le générateur d'expression mais il y a pas de code que je voulais insérer !!!!!!!


Merci pour ton aide

[Gado2600]

Bonjour,
Si tu ouvrais ton formulaire d'Accueil au démarrage de ta base de données ?
Cordialement,

[Tariq2014]

Rebonjour,

Si j'ouvre mon formulaire de d’accueil rien ne se passe, c-à-d le ruban est toujours la.

La question qui se pose pourquoi je trouve la fonction sans contenu (code) dans le générateur des expressions?

A+

[Michael Guilloux]

Bonjour à tous
@Tariq 2014,
Voici ce que j'ai fait dans une application que j'ai développée:
- J'ai créé une fonction MasquerRuban() dans un module standard

Code :

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

1
2
3
Function MasquerRuban()
DoCmd.Showtoolbar "Ribbon", acToolbarNo
End Function

- Et j'ai créé une macro qu'il faut absolument nommer AutoExec

ExécuterCode
Nom de la fonction MasquerRuban()

Et ça marché, je ne comprends donc pas pourquoi ça ne marche pas pour toi

[medchok]

Une petite question (j'espère ne pas déranger par rapport à la question principale).
Une fois le ruban masqué, comment le rendre accessible?
Merci pour la réponse

[Gado2600]

Bonjour,
Comment le rendre accessible ? Comme ceci :

Code :

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

DoCmd.Showtoolbar "Ribbon", acToolbarYes

A noter, la différence entre acToolbarNo et acToolbarYes :p

Cordialement,

[medchok]

Un grand merci pour la réponse et l'intérêt.

Pourrais en déduire que pour munir une application access d'un ruban utilisateur (pour le "grand public") correspondant au ruban personnalisé de l'application et d'un autre réservé à "l'administrateur" correspondant au ruban standard Access alors il suffirait soit d'utiliser

Code :

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

DoCmd.Showtoolbar "Ribbon", acToolbarNo

puis de télécharger le ruban personnalisé ou bien d'utiliser l'instruction

Code :

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

DoCmd.Showtoolbar "Ribbon", acToolbarYes

selon l'utilisateur?

Si tel était le cas, comment pourrait on "hériter" des propriétés du ruban standard Access, comment faire (en dynamique bien entendu) pour avoir un ruban spécifique à l'application en plus du ruban standard Access?

Vous remerciant pour vôtre aide.

[Komlan Amen]

Bonjour à tous
@Tariq 2014,
Voici ce que j'ai fait dans une application que j'ai développée:
- J'ai créé une fonction MasquerRuban() dans un module standard

Code :

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

1
2
3
Function MasquerRuban()
DoCmd.Showtoolbar "Ribbon", acToolbarNo
End Function

- Et j'ai créé une macro qu'il faut absolument nommer AutoExec
Et ça marché, je ne comprends donc pas pourquoi ça ne marche pas pour toi