Clavier virtuel dans excel (code pour fermeture)

Clavier virtuel dans excel (code pour fermeture) Sujet résolu

Ajouter un message à la discussion

loloheureux

Posté le 01/01/2008 @ 10:06

bonjour à tous,dans mon userform, je fais appel au clavier virtuel pour saisir dans mon textbox.donc,

J’ai inscrit ce code dans le module client pour ouvrir le clavier virtuel :

'ouverture du clavier virtuel

'var

Dim fichier As Variant'

debutfichier = Shell("C:\WINDOWS\system32\osk.exe", 1)

cela marche sans problème mais comment faire pour qu’il se ferme à la fermeture de l’usf.

merci de votre aide

Bonne année 2008

Modifié par loloheureux le 02/01/2008 10:26

gilbert_rgi

Posté le 02/01/2008 à 08:27

Bonjour

voilà une possibilité sur la feuille.

VBA
Dim clavier As Variant
 
Sub claviervisuel()
'ouverture du clavier virtuel
clavier = Shell("C:\WINDOWS\system32\osk.exe", 1)
AppActivate clavier
End Sub
 
Sub fermeclavier()
AppActivate clavier
SendKeys "%{F4}", True
AppActivate "Microsoft Excel"
Sheets(1).Activate
[a1].Select
End Sub

loloheureux

Posté le 02/01/2008 à 10:07

bonjour gilbert,

merci de ton aide

cela fonctionne mais j'ai un message d'erreur comme celui-ci:

http://img511.imageshack.us/my.php?image=erreurzx3.jpg

merci

lolo

gilbert_rgi

Posté le 02/01/2008 à 10:15

Sur quelle ligne car sur mon ordi je n'ai pas cette erreur

c'est peut-être sur votre userform ?

RGI

Modifié par gilbert_rgi le 02/01/2008 10:16

loloheureux

Posté le 02/01/2008 à 10:21

gilbert_rgi a écrit :

Sur quelle ligne car sur mon ordi je n'ai pas cette erreur
c'est peut-être sur votre userform ?
RGI

re,

oui j'ai mis votre code dans un module et les macro dans mon usf

Option Explicit
Private Sub CommandButton2_Click()
Unload Me
fermeclavier
End Sub

Private Sub TextBox1_Enter()
claviervisuel
End Sub

loloheureux

Posté le 02/01/2008 à 10:51

re,

j'ai trouvé il faut juste supprimer la ligne suivante:

Sheets(1).Activate
[a1].Select

merci lolo....

bonne journée

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

12,90 €

Windows 10 Pro 32/64 bits OEM à 12,90 €
Valable jusqu'au 21 Janvier

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 12,90 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.

> Voir l'offre

329 €

Smartphone Samsung M51 (6,7 pouces FHD+, 6 Go RAM, 128 Go) à 329 €
Valable jusqu'au 20 Janvier

Amazon fait une belle promotion sur le nouveau smartphone Samsung M51 qui passe à 329 € livré gratuitement au lieu de 399 €. Le smartphone Samsung Galaxy M51 dispose d'un écran Super AMOLED6.7 pouces d'une résolution de 1080 x 2400 pixels, d'un processeur 8 coeurs Snapdragon 730G et 6 Go de RAM. 128 Go de stockage sont présents et sont extensibles par MicroSD (512 Go max). Pour les moments inattendus de la vie, le quadruple appareil photo est idéal. Prenez de superbes photos de votre monde avec un appareil photo principal de 64 MP ou obtenez une image plus large avec l’angle de vue de 123 ° de l’objectif ultra grand angle 12 MP. Le capteur de profondeur 5 MP ajoute un flou d’arrière-plan et l’objectif macro 5 MP optimise la mise au point sur les gros plans. A l'avant, un appareil photo 32 MP vous permettra de réaliser vos selphies avec un léger flou d'arrière-plan grâce à la mise au point en direct. Il est soutenu par une batterie de 7000 mAh avec recharge rapide. Les fonctionnalités de connectivité du smartphone incluent WiFi, Bluetooth, GPS, Volte, etc.

Le Galaxy M51 dispose d’un capteur d’empreinte digitale à l’arrière pour vous connecter aux applications compatibles et déverrouiller votre appareil en toute simplicité. Le tout tourne sous Android 10.

> Voir l'offre

899,99 €

PC Portable 15,6 pouces Lenovo Legion Y540 (Core i5, 8 Go, SSD 512 Go, RTX 2060 6 Go) à 899,99 €
Valable jusqu'au 20 Janvier

Cdiscount fait une promotion sur le PC portable Lenovo Legion Y540 (15IRH) dédié aux joueurs qui passe à 899,99 € au lieu de 1100 €. Ce PC portable très bien équipé possède un écran 15,6 pouces LED Full HD, un processeur Intel Core i5-9300H, 8Go de RAM, un SSD de 512 Go et une carte graphique GeForce RTX 2060 6 Go dédiée qui avalera tous vos jeux sans broncher. Fourni avec Windows 10.

> Voir l'offre