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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de news: %23%
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
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" <paul@florent.com> a écrit dans le message de news:
%23%23xJALLsKHA.5940@TK2MSFTNGP02.phx.gbl...
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
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" a écrit dans le message de news: %23%
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
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
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 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/
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
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/
"Paul Florent" <paul@florent.com> a écrit dans le message de news:
u4P01yTsKHA.4284@TK2MSFTNGP04.phx.gbl...
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
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/
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
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
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