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 :

Récupérer le "caption" du menu sélectionné OU utiliser onAction avec paramètres [WD-2007]


Sujet :

VBA Word

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

    Informations forums :
    Inscription : Septembre 2006
    Messages : 41
    Points : 33
    Points
    33
    Par défaut Récupérer le "caption" du menu sélectionné OU utiliser onAction avec paramètres
    Bonjour,

    Comment fait-on pour récupérer le caption du menu sélectionné sous word 2007. Car je fais ça sous excel 2007 comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Set Menu_HELP = Application.CommandBars.ActiveMenuBar.Controls("Help")
     
    var_MenuNameSplit = Split(Menu_HELP.Controls(Application.Caller(1)).Caption, " ")
    le "Application.Caller(1)" fonctionne bien sous excel mais n'existe pas sous word.

    J'utilise ce caption du menu pour lancer une procédure qui ouvre un document selon le caption du menu sélectionné (il m'aide à reconstruire le nom du document à ouvrir).
    On appelera cette procédure "OpenPDF".
    Je me suis tourné vers une autre solution qui consiste à mettre l'appel de ma procédure dans le ".onAction" avec le nom du menu en paramètre lors de la création de chaque sous menu de mon menu "Help", comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    .OnAction = "'" & "Macro_v5.5.2.dot" & "'!'" & "OpenPDF" & " " & """" & CStr(it_menu) & """" & "'"
    ou comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
     .OnAction = "'" & "IDMF_HELP_OpenPDF," & """" & CStr(it_menu) & """" & "'"
    mais word me dit :
    macro cannot be found or has been disabled because of your macro security settings
    alors que j'ai autorisé toutes les macros dans ma sécurité (pour tester le code). Je pense que ma syntaxe ne va pas.
    Pourtant ça fonctionne aussi dans excel.

    Est-ce que quelqu'un peut m'aider, soit à me dire comment je récupère le caption du menu sélectionné par l'utilisateur ou bien me dire ce qui ne va pas dans mon onAction (et si c utilisable dans word).

    Je vous remercie grandement d'avance.

    Boubou_s

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

    Informations forums :
    Inscription : Septembre 2006
    Messages : 41
    Points : 33
    Points
    33
    Par défaut
    comme j'ai pitié des personnes qui serait à la recherche de la même solution que moi dans le future, voici comment on récupère le nom du menu que l'utilisateur a cliqué dans Word :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Application.CommandBars.ActionControl.Caption
    il faut utiliser le "ActionControl" qui renvoie le control cliqué.

    J'espère que je ferai des heureux avec cette réponse

    Boubou_s

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

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