Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 26/11/2011, 11h49   #1
Invité de passage
 
Inscription : mai 2009
Messages : 18
Détails du profil
Informations forums :
Inscription : mai 2009
Messages : 18
Points : 3
Points : 3
Par défaut Ruban personalisé Access 2007

Bonjour,
j'ai créer une application sous access et souhaite personaliser le ruban. pour cela j'ai crée le fichier application_ribbon.xml dont le contenu est le suivant :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
<tabs>
<tab id="tabAccueil" label="Accueil" visible="true">
<group id="grpPressePapiers" label="Presse Papiers">
<button idMso="Paste" label="Coller" size="large"/>
<button idMso="Copy" label="Copier" size="normal"/>
<button idMso="Cut" label="Couper" size="normal"/>
</group>
 
<group id="grpRecherche" label="Recherche ">
<button idMso="FilterAdvancedByForm" label="Filtrer" size="normal"/>
<button idMso="FilterToggleFilter" label="Appliquer Filtre" size="normal"/>
<button idMso="FilterBySelection" label="Par Sélection" size="normal"/>
</group>
 
</tab>
</tabs>
</ribbon>
</customUI>
J'ai également crée un module VBA pour le chargement de ce ruban son contenu est le suivant :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Public Function LoadRibbon()
Dim strXML As String
Dim oFso As New FileSystemObject
Dim oFtxt As TextStream
Set oFtxt = oFso.OpenTextFile(CurrentProject.Path & "\Application_ribbon.XML", ForReading)
'Récupère le contenu
strXML = oFtxt.ReadAll
'Charge le rubban personnalisé correspondant
Application.LoadCustomUI "rubanperso", strXML
 
End Function
Dans le formulaire j'ai ajouté "rubanperso" dans la propriété nim du ruba.
Quand le formulaire s'ouvre il me montre bien le ruban personalisé mais sitôt que je clique sur un bouton le ruban original s'affiche.

Merci de votre aide.

cordialement,
brg2009 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/11/2011, 12h44   #2
Membre éclairé
 
Homme Christophe AUMOITTE
Inscription : octobre 2009
Messages : 257
Détails du profil
Informations personnelles :
Nom : Homme Christophe AUMOITTE
Âge : 43
Localisation : France, Bas Rhin (Alsace)

Informations forums :
Inscription : octobre 2009
Messages : 257
Points : 303
Points : 303
Bonjour,

Je ne maitrise pas encore Access 2007, car je ne passerais dessus que la semaine prochaine.
Cela dit, j'ai commencé à faire des recherches sur le barre d'outils personnalisées afin de pouvoir mettre à jour mes applications.
De mémoire, il existe une option Acces à paramétrer pour ne plus avoir ce problème.
Dans l'immédiat, je suis un peux pressé et je n'ai pas le temps de t'indiquer le lien, mais fais quelques recherches dans les tutoriaux de développez.com, je crois que c'est dans ces documents que j'ai vu cela.

Cordialement

Christophe
marsouin_89 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/11/2011, 15h04   #3
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Je ne constate le problème de perte de ruban formulaire qu'avec le bouton FilterAdvancedByForm.
C'est peut-être un cas particulier lié à ce bouton, ou bien Access considère que le formulaire a perdu le focus en changeant de type d'affichage.
Lorsqu'un formulaire perd le focus, son ruban n'est plus affiché.

Au passage, il y a une erreur dans ton xml car FilterToggleFilter n'est pas un bouton, mais un bouton bascule.
Code xml :
<toggleButton idMso="FilterToggleFilter" label="Appliquer Filtre" size="normal" />

A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h36.


 
 
 
 
Partenaires

Hébergement Web