Masquer le ruban au démarrage d'Access

[Paul Florent]

Bonjour � tous,
Je souhaite masquer le ruban au d�marrage d'Access,
Je suis all� consulter l'aide VBA et j'ai appliqu� les instructions, c'est �
dire que je cr�e une table "RubansSysU"
comme indiqu� dans l'aide.
Je ferme l'application et l'ouvre � nouveau, mais je trouve pas dans les
Options Access/Base de donn�es en cours/Options de la barre d'outils et du
ruban
le non du ruban HideTheRibbon !

Le contenu du champ "RibbonXLM" : <CustomUI
xmlns="http://schemas.microsoft.com/office/2006/01/CustomUI"> <Ribbon
startFromScratch="true"/></CustomUI>
indiqu� par l'aide me semble bizarre !

Pouvez vous m'aider � masquer le ruban au d�marrage de mon application
Merci par avance pour votre aide
Paul

[jero]

Salut,
Il faut charger le(s) ruban(s) avant :
exemple (tu adaptes ) :
Function fctChargerRubans() As Boolean
Dim I As Integer, Db As DAO.Database, Rst As DAO.Recordset
Const NomTable As String = "RubansSysU"
fctChargerRubans = True
Set Db = Application.CurrentDb
On Error GoTo Err_ChargerRubans
Set Rst = Db.OpenRecordset(NomTable)
Rst.MoveFirst
With Rst
Do While Not .EOF
Application.LoadCustomUI ![RibbonName].Value, ![RibbonXml].Value
.MoveNext
Loop
.Close
End With

Exit_ChargerRubans:
Set Rst = Nothing
Db.Close
Set Db = Nothing
Exit Function

Err_ChargerRubans:
If Err = 32609 Then
Resume Next
Else
fctChargerRubans = False
Resume Exit_ChargerRubans
End If
End Function
Tu peux automatiser la suite :
Public Function InitialisePropri�t�s(VraiFaux As Boolean)
fctChargerRubans 'Les rubans personnalis�s sont charg�s via
fctChargerRubans()
If VraiFaux = True Then
'Restaurer ruban par d�faut
ModifiePropri�t� "CustomRibbonID", dbText
Else
'D�finir un nouveau ruban
ModifiePropri�t� "CustomRibbonID", dbText, "HideTheRibbon "
End If
End Function

Public Function ModifiePropri�t�(NomPropri�t� As String, TypePropri�t� As
Variant, Optional ValeurPropri�t� As Variant = "") As Boolean
Const PROPRIETE_NON_TROUVEE = 3270
Dim Prp As DAO.Property
On Error GoTo Err_ModifiePropri�t�
If ValeurPropri�t� = "" Then
BaseActive.Properties().Delete NomPropri�t�
Else
BaseActive.Properties(NomPropri�t�) = ValeurPropri�t�
End If
ModifiePropri�t� = True

Exit_ModifiePropri�t�:
Exit Function

Err_ModifiePropri�t�:
If Err = PROPRIETE_NON_TROUVEE Then
On Error Resume Next 'Incompatibilit� de type (?)
Set Prp = BaseActive.CreateProperty(NomPropri�t�, TypePropri�t�,
ValeurPropri�t�)
BaseActive.Properties.Append Prp
On Error GoTo 0
Resume Exit_ModifiePropri�t�
Else ' Autre erreur
ModifiePropri�t� = False
Resume Exit_ModifiePropri�t�
End If
End Function
a+
"Paul Florent" <pa...@florent.com> a �crit dans le message de news:
%23%23xJALLs...@TK2MSFTNGP02.phx.gbl...

[Paul Florent]

Merci J�ro pour cette r�ponse.
Je n'ai pas r�ussi � masquer le ruban
Dans un formulaire qui s'ouvre au d�marrage de l'application j'ai plac� :
Private Sub Form_Load()
fctChargerRubans
Et dans un module j'ai plac� :
Public Function fctChargerRubans() As Boolean
...

Il me semble ne pas avoir plac� le code au bon endroit !

Ce que j'aimerais c'est ce que j'ai fait avec une application mdb d�velopp�e
avec Access 2003
dans la quelle j'avais cr�e une barre de menu.
Pour utiliser cette base avec Access 2007, je vais dans :
Options Access/Base de donn�es active/Option de la barre d'outils/Barre de
menu contextuel
et l� je s�lectionne ma barre de menu cr�e sous Access 2003.
�a marche tr�s bien, j'ai juste ma barre de menu et plus de ruban ni de
barre d'acc�s rapide.

H�las, lorsque je cr�e une base vierge 2007 (ou 2010) accdb et que j'importe
le contenu d'une application mdb,
je retrouve ma barre de menu dans l'onglet "Compl�ments" du ruban
mais je ne peux pas s�lectionner cette barre dans Access/Base de donn�es
active/Option de la barre d'outils/Barre de menu contextuel
comme je le fait avec une application mdb

Merci par avance pour ton aide
Paul

[jero]

Salut,

Private Sub Form_Load()
fctChargerRubans
Et dans un module j'ai plac� :
Public Function fctChargerRubans() As Boolean

�a c'est bon ...
ensuite tu utilises :

Public Function ModifiePropri�t�(NomPropri�t� As String, TypePropri�t� As
Variant, Optional ValeurPropri�t� As Variant = "") As Boolean

....
....
End Function
(tu remplaces BaseActive par CurrentDb ou par une autre variable...)
que tu appelles par :

ModifiePropri�t� "CustomRibbonID", dbText, "HideTheRibbon "

Autres pistes :
http://warin.developpez.com/access/ruban/

http://msdn.microsoft.com/en-us/library/ee390805(office.11).aspx

http://msdn.microsoft.com/en-us/library/ee633442(office.11).aspx

http://www.rondebruin.nl/tips.htm

(Excel 2007 Ribbon and QAT pages)

A+

"Paul Florent" <pa...@florent.com> a �crit dans le message de news:

u4P01yTs...@TK2MSFTNGP04.phx.gbl...

[Paul Florent]

Merci pour ton aide et en particulier le lien vers le site warin
o� le probl�me du ruban est tr�s document�
A+
Paul