Discussion :

[Mat08]

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 :

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
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.

[Invité]

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

[Mat08]

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 ?

[Invité]

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

[Mat08]

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 :

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
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.

[LedZeppII]

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 :

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
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+

[Mat08]

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

Merci à vous deux pour votre aide.