Bonjour,

J'ai créé un menu contextuel pour mes états. L'action exporter en pdf/xps fonctionne bien mais la boite de dialogue "enregistrer sous" me propose le nom de l'état comme nom par défaut alors que je voudrais proposer la valeur d'un des champs de cet état.


Comment faire ?

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
    CommandBars("MenuContextuelPourEtat").Delete ' efface d'abord cette toolbar avant de la recréer
    Dim cmbBtn As CommandBarButton
    Dim cmb As CommandBar
 
    Set cmb = Application.CommandBars.Add(Name:="MenuContextuelPourEtat", Position:=msoBarPopup, Temporary:=False)
    With cmb
        .Controls.Add(msoControlButton, 247, , , True).BeginGroup = True      '247    page Setup
        .Controls.Add msoControlButton, 15948, , , True     '15948  Imprimer...
        Set cmbBtn = .Controls.Add(msoControlButton, 2188, , , True)   '2188   Exporter
            cmbBtn.BeginGroup = True
            cmbBtn.Caption = "Exporter"
        .Controls.Add msoControlButton, 12499, , , True     '12499 Envoi PDF ou XPS
        Set cmbBtn = .Controls.Add(msoControlButton, 106, , , True)   '106    Fermer
            cmbBtn.BeginGroup = True
            cmbBtn.Caption = "Fermer la fenêtre"
    End With