[AC-2007] Comment personnaliser l'icône d'aide du ruban? [Résolu]

[strutec]

Bonjour!

j'ai intégré à mon application (développée avec access 2007) un fichier d'aide au format pdf. J'ai utilisé la méthode shellexecute pour que mon fichier pdf s'ouvre sur appui de la touche F1.

Code :

1
2
3
4
5
6
7
8
9
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Function cheminhelp()
Dim strPDFName As String
strPDFName = "C:\Guide.pdf"
Call ShellExecute(0, "open", strPDFName, vbNullString, vbNullString, 2)
End Function

J'aimerais également programmer l'ouverture de mon fichier pdf sur clic de l'icône d'aide du ruban (le point d'interrogation). je ne sais pas du tout comment procéder pour l'instant

le problème est que cette icône reste visible en mode runtime mais il ne se passe rien lorsque l'on clique dessus. une autre option serait de la masquer afin de ne pas perturber l'utilisateur...

Des idées?

merci de votre aide!

[LedZeppII]

Bonsoir,

Si tu n'as pas de table USysRibbons crée en une (voir ici).
La table USysRibbons est considérée comme étant une table système et ne sera visible
que si l'option de navigation «Afficher les objets systèmes» est cochée.

Crée un nouvel enregistrement en donnant un nom au ruban (par exemple rubanAppli) dans le champ RibbonName.
Dans le champ RibbonXML colle le code xml suivant :

Code xml :

1
2
3
4
5
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <commands>
        <command idMso="Help" onAction="OnActionRepurposed" />
    </commands>
</customUI>

Dans ce code xml on dit à Access d'appeler la sub OnActionRepurposed lorsqu'on clique sur le bouton dont l'identifiant est "Help".

Dans un module de code, colle le code de la sub public OnActionRepurposed:

Code vba :

1
2
3
4
5
6
7
8
9
10
' -----------------------------------------------------------------------------
' ruban SansAide - OnAction Repurposed (Command Button)
' -----------------------------------------------------------------------------
Sub OnActionRepurposed(control As IRibbonControl, ByRef CancelDefault)
Select Case control.ID
    Case "Help"
    CancelDefault = True
    MsgBox "Vous avez cliqué sur le bouton d'aide d'Access", , "Bouton Aide"
End Select
End Sub

Assure-toi que tu as une référence Visual Basic à "Microsoft Office 12.0 Object Library".

Ferme la base de données.
Ouvre-la et va dans les options d'Access, catégorie «Base de données active».
Sous «Options de la barre d'outils et du ruban», sélectionne ton ruban dans la liste déroulante en face de «Nom du ruban».
Va dans la catégorie «Avancé» et sous «Général» vérifie que l'option «Afficher les erreurs du complément d'interface utilisateur» est cochée.
Cela permet d'afficher d'éventuelles erreurs dans le code xml du ruban.

Ferme la base de données.
Réouvre la base de données.
Normalement elle doit charger le ruban désigné dans les options «Base de données active».

A+

[strutec]

ça fonctionne parfaitement!
merci mille fois!