Code simuler appui sur touche clavier [Résolu/Fermé]

Signaler
Messages postés
66
Date d'inscription
jeudi 6 mai 2010
Statut
Membre
Dernière intervention
9 mai 2017
-
Messages postés
66
Date d'inscription
jeudi 6 mai 2010
Statut
Membre
Dernière intervention
9 mai 2017
-
Bonjour,

Je fais appel à vous.
J'aimerais savoir s'il existe un code VBA pour simuler l'appui sur une, voire plusieurs touches du clavier, le tout en cliquant sur un bouton (dans excel ou access)

En gros, j'aimerais que lorsque je clique sur mon bouton que j'ai créé, ça simule l'appui sur des touches du clavier, du genre ENTREE, ou CTRL+C, ou CTRL+F etc...

Le code que j'ai essayé est le suivant, pour simuler l'appui sur la touche F1:

Private Sub Commande8_Click()
SendKeys "{F1}"
End Sub

Le bouton sur lequel je clique se nomme "Commande8"

Je clique sur mon bouton, mais rien ne se passe! Auriez vous un code qui fonctionne SVP?
(Je suis très très débutant en "codage" VBA, merci d'expliquer)

Merci d'avance à tous!
=)

A voir également:

3 réponses

Messages postés
66
Date d'inscription
jeudi 6 mai 2010
Statut
Membre
Dernière intervention
9 mai 2017
60
Up svp =)
Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
1 502
Bonjour,

Votre code fonctionne dans un formulaire ACCESS.

Pour Excel:
sur une feuille de calcul, un bouton Controle de formulaire et une macro dans un module
ex:
Sub Macro1()
  SendKeys "{F1}"
End Sub


Ensuite il y a l'utilisation des API de windows, en cherchant via GOOO....vous trouverez sans probleme.
Messages postés
66
Date d'inscription
jeudi 6 mai 2010
Statut
Membre
Dernière intervention
9 mai 2017
60
Bonjour,

j'ai cherché et cherché...

C'est bien ça, je faisait quelques erreurs en fait.

Dans excel j'avais réussi, le problème venait de access:

Le fait de cliquer sur le bouton pour déclencher le module Sendkeys "{??}" me faisait perdre ma référence (endroit 0, d'ou je voulais que se déclenche le module).
L'effet de la touche n'était donc pas le même...


En tous cas,
Merci beaucoup !