Syntaxe pour intégrer "ctrl+C" dans du code vba.

Bonjour,
Je voudrais intégrer dans un morceau de code une ligne qui fasse l'action "ctrl+c" c'est à dire qui fasse comme si on appuyait sur les touches du clavier "contrôle+c" en même temps. Je ne connais pas la syntaxe pour faire cela. Est-ce possible ?

Voici le code et l'endroit où je veux insérer cette fonction (en majuscule) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Set cmb = Application.CommandBars.Add("Mnu_CopierCollerAnnuler", msoBarPopup) Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "copier" .Style = msoButtonCaption .OnAction = "FONCTION CTRL+C" End With Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "coller" .Style = msoButtonCaption .OnAction = "FONCTION CTRL+V" End With Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "annuler" .Style = msoButtonCaption .OnAction = "FONCTION CTRL+Z" End With

---

Merci d'avance.

Bonjour

Si tu veux recréer les effets des boutons Copier, Coller et Annuler pourquoi ne pas reprendre les Id des boutons de commandes existant ?

Sur ce tuto Personnaliser vos barres de commandes dans Access tu as un exemple d'utilisation de ce qui se trouve dans la barre de commande : Utiliser les fonctions des barres de commandes

Philippe

C'est justement ce que j'ai fait mais cela utilise des macros pour effectuer les copier coller annuler et quand j'ai des erreurs à cause de ces macro l'application plante et ferme. Voilà pourquoi je voudrais savoir la syntaxe que je dois utiliser pour ctrl+C. Je trouve ça plus simple. N'y a-t-il pas de syntaxe possible ?

Re

Je ne comprends pas vraiment ton problème avec le peu d'informations que tu nous donnes sur le bug.

Sinon une autre solution : Access : les commandes intégrées des menus et surtout ici : Menu Édition

Philippe

Ok. Je suis entrain de regarder les derniers liens que vous m'avez donné car je pense pouvoir m'en sortir avec.

Je vous explique plus clairement mon problème. Voici le code exact tel qu'il est en ce moment dans mon application :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Set cmb = Application.CommandBars.Add("Mnu_CopierCollerAnnuler", msoBarPopup) Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "copier" .Style = msoButtonCaption .OnAction = "Macro_Copier" End With Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "coller" .Style = msoButtonCaption .OnAction = "Macro_Coller" End With Set btn = cmb.Controls.Add(msoControlButton) With btn .Caption = "annuler" .Style = msoButtonCaption .OnAction = "Macro_Annuler" End With

---

Vous pouvez voir que j'utilise 3 macros différentes. Si par exemple dans un formulaire je fait clique droit coller alors que je n'ai rien à coller, la "Macro_Coller" donne lieu à une erreur et l'application plante et se ferme. Voilà pourquoi je cherchais une autre solution pour pouvoir remplacer l'usage de macro dans ce bout de code. J'espère vous avoir éclairé sur le problème.

Je posterais un autre message dès que j'aurais réussit ou non à m'en sortir grâce à votre seconde solution.

Bonsoir,

Voici un code de création d'un menu contextuel qui réutilise des contrôles de barre d'outils intégrés.

Code:

---

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

Dim cmdBar As Object ' Office.CommandBar si ref Office cochée Dim strMenu As String Const msoBarPopup = 5 ' Au cas où ref Office n'est pas cochée   strMenu = "Mnu_CopierCollerAnnuler" On Error Resume Next Set cmdBar = Application.CommandBars(strMenu) On Error GoTo 0   If Not (cmdBar Is Nothing) Then cmdBar.Delete End If   Set cmdBar = Application.CommandBars.Add(strMenu, msoBarPopup, False, False) ' Copier Application.CommandBars("Database").FindControl(, 19).Copy cmdBar ' Coller Application.CommandBars("Database").FindControl(, 22).Copy cmdBar ' Annuler -> Bouton Application.CommandBars("Edit").FindControl(, 128).Copy cmdBar   ' Annuler -> Split button 'Application.CommandBars("Database").FindControl(, 128).Copy cmdBar   cmdBar.Enabled = True

---

A+

Ok c'est parfait cela fonctionne très bien.

Merci à vous deux pour votre aide.