IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Menu contextuel en fonction de la sélection ?


Sujet :

VBA Word

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 52
    Points : 34
    Points
    34
    Par défaut Menu contextuel en fonction de la sélection ?
    Bonjour,

    mon problème est que j'ai fais une petit macro en visual basic qui me permet d'ouvrir internet explorer avec une url et un paramètre. Le probleme est que ca marche nickel sur du texte normal je fais un clique droit puis dans mon menu contextuel j'ai bien ma nouvelle fonctionnalité par contre lorsque que j'essaye de l'utiliser sur un titre1 par exemple bah je ne voit plus ma fonctionnalité dans le menu contextuel. Quelqu'un aurait une idée ? Merci d'avance



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
     
    Sub AutoExec()
        'Réinitialise la barre de commandes "text"
        CommandBars("text").Reset
     
        Set menu = Application.CommandBars("Text").Controls. _
            Add(Type:=msoControlButton)
            menu.Caption = "Ouvrir FFT avec Quality Center"
            menu.OnAction = "OuvrirFFT"
    End Sub
    Images attachées Images attachées  

  2. #2
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Bonjour,

    Apparement quand tu es sur un titre ce n'est plus la même CommandBars qui s"affiche.
    Il faudrait vérifier si c'est bien la CommandBars "Text"
    (\ _ /)
    (='.'=)
    L'erreur est humaine. Mais pour une véritable catastrophe il faut un ordinateur
    (")-(") Lorsque votre problème est solutionné, merci de cliquer sur

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 52
    Points : 34
    Points
    34
    Par défaut
    Comment puis je faire pour ajouter mon menu contextuel dans tous les cas, par exmple comme copier coller !!
    Je comprends pas tout, si quelqu'un aurais la liste des commande bar merci beaucoup.

  4. #4
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Désolé mais je n'ai trouvé nul part la liste des commandbars de Word.
    Il faut faire une recherche plus approfondie sur la toile.

    Si toutefois tu trouve cette liste pense à nous la communiquer (c'est toujours utile ce genre d'infos)
    (\ _ /)
    (='.'=)
    L'erreur est humaine. Mais pour une véritable catastrophe il faut un ordinateur
    (")-(") Lorsque votre problème est solutionné, merci de cliquer sur

  5. #5
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Points : 7 964
    Points
    7 964
    Par défaut
    Bonjour,

    Pour lister le nom des barres de menu, tu peux essayer ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub test_barre_menu()
    Dim Cbar As CommandBar, Result As String
     
    For Each Cbar In CommandBars
        If Cbar.BuiltIn = True Then ' pour ne prendre que les barres de commandes définies par l'application
            Result = Result & Chr(10) & Cbar.Name
        End If
    Next
     
    Debug.Print Result '<-- Ctrl+G dans l'éditeur de Visual Basic pour visualiser le résultat
    End Sub
    LES FAQ OFFICE - LES COURS OFFICE - LES COURS EXCEL - LES LIVRES OFFICE - SOURCES VBA - ATELIER BRICOLAGE VBA

    Lorsque votre problème est solutionné, pensez à le signaler en cliquant sur le bouton au bas de la discussion.

  6. #6
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 52
    Points : 34
    Points
    34
    Par défaut
    Voici la liste des commands bar qui est assez longue

    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
     
    Standard
    Formatting
    Tables and Borders
    Database
    Drawing
    Forms
    Full Screen
    Edit Picture
    Visual Basic
    Stop Recording
    Mail Merge
    Master Document
    Microsoft
    Header and Footer
    Outlining
    Print Preview
    Word for Windows 2.0
    Read Mail
    Send Mail
    Extended Formatting
    AutoText
    Web
    WordArt
    3-D Settings
    Shadow Settings
    Picture
    Drawing Canvas
    Organization Chart
    Diagram
    Reviewing
    AutoSummarize
    Exit Design Mode
    Control Toolbox
    Text Box
    Outlook Read Mail
    Outlook Send Mail
    Function Key Display
    Web Tools
    Word Count
    Japanese Greetings
    Menu Bar
    Refresh
    Frames
    E-mail
    Reading Layout
    Document Layout
    Compare Side by Side
    Ink Drawing and Writing
    Ink Annotations
    Ink Comment
    Task Pane
     
    Drop Caps
    Endnotes
    Fields
    Display Fields
    Field Display List Numbers
    Form Fields
    Footnotes
    Frames
    Headings
    Linked Headings
    Script Anchor Popup
    Lists
    Inline Picture
    Inline Canvas
    Horizontal Line Popup
    Tables
    Table Cells
    Table Headings
    Table Lists
    Table Pictures
    Table Text
    Whole Table
    Linked Table
    Text
    Linked Text
    Font Popup
    Font Paragraph
    Format Inspector Popup in Normal Mode
    Format Inspector Popup in Compare Mode
    Spelling
    Grammar
    Grammar (2)
    Format consistency
    Background Proofing Status Bar
    Track Changes
    Frame Properties
    Hyperlink Context Menu
    AutoSignature Popup
    Field AutoText
    Document Map
    Shapes
    Curve
    Curve Node
    Curve Segment
    Floating Picture
    Canvas Popup
    OLE Object
    ActiveX Control
    WordArt Context Menu
    Rotate Mode
    Comment
    Organization Chart Popup
    Diagram
    Connector
    Track Changes Indicator
    Chinese Translation
    Address Block Popup
    Greeting Line Popup
    Inline ActiveX Control
    XML Structure Node Popup
    XML Error Options
    Ink Comment
    AutoShapes
    Callouts
    Flowchart
    Block Arrows
    Stars & Banners
    Lines
    Basic Shapes
    Connectors
    Fill Color
    Insert Shape
    Line Color
    Drawing and Writing Pens
    Annotation Pens
    Drawing and Writing Pens
    Annotation Pens
    Align or Distribute
    Rotate or Flip
    Order
    Nudge
    Borders
    Font Color
    Shading Color
    Cell Alignment
    Text Wrapping
    Clipboard
    Envelope
    System
    Online Meeting
    J'ai toujours pas réolus mon probleme malheusement, une solution de contournement possible est d ajouter tout simplement par le code un bouton sur ma toolbars en mettant un icone personnaliser, si quelqu'un à un bout de code pour ajouter un bouton personnaliser dans la toolbars ou sinon un bout de code permettant de formatter le texte lors de ma selection afin que le bon menu contextuel apparaisse merci d'avance

  7. #7
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Bonjour,

    Regarde déjà ICI pour un bouton dans la barre d'outils.

    Sinon dans les tutoriels LA
    (\ _ /)
    (='.'=)
    L'erreur est humaine. Mais pour une véritable catastrophe il faut un ordinateur
    (")-(") Lorsque votre problème est solutionné, merci de cliquer sur

  8. #8
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 52
    Points : 34
    Points
    34
    Par défaut
    Tes liens sont pour office 2007 j'utilise office 2003, je cherche toujours comment ajouter un bouton simple dans la toolbar avec si possible la possibilité de lui ajouter une image perso.

    Quelqu'un doit avoir ca sous le coude quand meme un simple petit bouton

    Merci d'avance de vos réponses

  9. #9
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut Différences Word / Excel
    Bonjour,

    Pour Excel:
    1. Clic droit sur les barres d'outils
    2. Choisir personaliser
    3. Sélectionner "Macros" puis faire glisser l'icone "Bouton personalisé" à l'endroit voulu
    4. Clic droit sur l'icone et choisir "Affecter une macro"
    5. Sélectionner la macro voulue
    6. Re Clic droit sur l'icone et choisir "Modifier l'image du bouton" pour choisir une image différente.


    Pour Word:
    1. Clic droit sur les barres d'outils
    2. Choisir personaliser
    3. Dans enregistrer dans, sélectionner le fichier où se trouve la macro
    4. Sélectionner la macro voulue puis faire glisser l'icone sur la barre d'outil
    5. Clic droit sur l'icone et choisir "Modifier l'image du bouton" pour choisir une image différente.

    A toi de jouer.......
    (\ _ /)
    (='.'=)
    L'erreur est humaine. Mais pour une véritable catastrophe il faut un ordinateur
    (")-(") Lorsque votre problème est solutionné, merci de cliquer sur

  10. #10
    Expert éminent
    Avatar de Sepia
    Homme Profil pro
    Administrateur du cursus IDE@L - Chef de Projet NCU (digital learning) - Université de Rennes
    Inscrit en
    Octobre 2007
    Messages
    3 117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Administrateur du cursus IDE@L - Chef de Projet NCU (digital learning) - Université de Rennes
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Octobre 2007
    Messages : 3 117
    Points : 6 856
    Points
    6 856
    Par défaut Icone
    Salut,

    Pour Word (en complément de ce que t'a dit J.Michel), tu peux même utiliser un mini-éditeur de dessin (non pas de dessin) mais alors vraiment mini l'éditeur pour faire tes propres icônes.

    @+

  11. #11
    Membre éprouvé
    Avatar de JackOuYA
    Inscrit en
    Juin 2008
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 1 040
    Points : 1 191
    Points
    1 191
    Par défaut
    Bonsoir,

    Pour trouver le nom de menu contextuel exécute le code :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Sub YaListeMenus()
    Dim Cbar As CommandBar
    Dim YaBo  As CommandBarButton
      For Each Cbar In CommandBars
          If Cbar.BuiltIn = True And Not (Cbar.Protection And msoBarNoCustomize) = msoBarNoCustomize Then   
           Set YaBo = Cbar.Controls.Add(Type:=msoControlButton, Temporary:=True)
           YaBo.Caption = ">>>" & Cbar.Name & "<<<<"
           YaBo.Tag = "JacKouYA"
         End If
       Next
    End Sub
    le bout >>>> LeNomDuMenu <<<<< et rajouté au menu, en temporaire.
    tu peu aussi nettoyer ce menu par :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub YANettoie()
    Dim Cbar As CommandBar
    Dim YaBo
      For Each Cbar In CommandBars
         For Each YaBo In Cbar.Controls
           If YaBo.Tag = "JacKouYA" Then
              YaBo.Delete
            End If
         Next
       Next
    End Sub
    JacqueS.

    Ps: je ne télécharge les piéces jointes qu'en dernier recours .(et encore...)

    Pour devenir mon ami laissez moi un message

  12. #12
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 52
    Points : 34
    Points
    34
    Par défaut
    Merci a tous j'ai résolu le probleme avec le dernier code fourni merci beaucoup

  13. #13
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2019
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2019
    Messages : 26
    Points : 15
    Points
    15
    Par défaut
    Bonjour,
    est-ce qu'il serait possible de faire la même chose en java?

    Cordialement

  14. #14
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 904
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 904
    Points : 10 168
    Points
    10 168
    Billets dans le blog
    36
    Par défaut
    Bonjour

    Word ne connaît rien en JAVA.
    À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe.

    Ô Saint Excel, Grand Dieu de l'Inutile.

    Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ajouter quelques fonctions au menu contextuel.
    Par Soobook dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 15/08/2008, 16h57
  2. Réponses: 2
    Dernier message: 30/07/2008, 17h08
  3. Réponses: 5
    Dernier message: 07/04/2007, 13h44
  4. [FLASH 8] Fonction de menu contextuel
    Par wwave dans le forum Flash
    Réponses: 5
    Dernier message: 22/11/2005, 12h40
  5. Réponses: 15
    Dernier message: 12/08/2005, 16h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo