Discussion :

[pio_killer]

Bonjour,

j'ai fait une base sous ACCESS 2007
Chaque utilisateur possède le Runtime 2007.

J'ai fais un ruban personnalisée dans lequel j'ai mis, entre autres, les boutons correspondants à l'export Excel et Word.

Or, ces boutons disparaissent lorsqu'on lance la base avec le runtime.

Est-ce normal ?

[argyronet]

Bonjour,

Si ton ruban est "personnalisé", non, ce n'est pas normal...

1. Par quoi sont "remplacés" ces boutons ?
2. Si tu renommes ta base de dev (sur la version complète donc...) en accdr, obtiens-tu le même comportement ?

Argy

[pio_killer]

Merci pour ta réponse.

En fait, j'ai fais mon ruban avec l'appli AssistantRuban que l'on trouve sur ce site.
Dedans, j'ai cliqué sur "ajouter un élément standard.
Ensuite, Ruban standard puis données externes (voir captures jointes).
De là, j'ai sélectionné les boutons Export Excel et Export Word.
Il s'agit de fonctions interne à ACCESS (c'est peut-être pour ça que cela ne marche pas).
Je voudrais quand même éviter de faire l'export en vba

Pour répondre à ta question, non cela ne change rien si je renomme en accdr

[argyronet]

Effectivement, il semble que cela soit propre au Runtime.

Je vais approfondir mes recherches mais en attendant, je te suggère l'usage très simple de l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OutputTo ...

qui te permettra toutes les fantaisies en matière d'export.
Il te suffira de récupérer les icônes correspondants aux différents boutons souhaités après les avoir sauvegardé en PNG transparents.

Argy

[pio_killer]

Je te remercie mais il y a un problème.
dans la code correspondant au bouton, j'ai fait le test avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub Ribbon_OnAction(control As IRibbonControl)
    DoCmd.OutputTo acOutputQuery, "Requête1", acFormatXLS, "P:\ExtractExcel.xls", False
    MsgBox "Ca marche !!!"
End Sub

J'ai mis le fichier en pièce jointe.

Sous ACCESS complet, tout marche bien mais pas sous runtime.
Pour être sur que le bouton soit correctement fait, j'ai fais le test en enlevant la ligne DoCmd.Output et tout marche bien.

J'ai une question, lorsque des fonctionnalités comme celle-ci ne marche pas sous le runtime, est-ce qu'il est possible de faire un empaquetage avec le kit developpeur ? (j'ai entendu parlé de ce kit mais je ne m'en suis jamais servi)

[argyronet]

Modifie ton appel comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub Ribbon_OnAction(control As IRibbonControl)
Dim R                                                  As Integer
    On Error GoTo Ribbon_OnAction_Error
    R = MsgBox("Exporter sous Excel ?", vbQuestion + vbYesNo)
    If R = vbYes Then
        ExporterRequete2XL "P:\"
        MsgBox "Ca a marché !!!"
    Else
        MsgBox "Tanpis, ce sera pour autre fois..."
    End If
    On Error GoTo 0
Ribbon_OnAction_Exit:
    Exit Sub
Ribbon_OnAction_Error:
    MsgBox Err.Description, 48, Err.Source
    Resume Ribbon_OnAction_Exit
End Sub
 
Private Sub ExporterRequete2XL(ByVal AQuelEndroit As String)
    DoCmd.OutputTo acOutputQuery, "Requête1", acFormatXLS, AQuelEndroit & "ExtractExcel.xls", False
End Sub

Argy