Masquer le ruban au démarrage d'Access
Le
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..."> <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
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..."> <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
Poser une question
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" %23%
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
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"
où le problème du ruban est très documenté
A+
Paul