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

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

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

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

c'est peut-être sur votre userform ?

RGI

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

re,

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

1. Sheets(1).Activate
2. [a1].Select

merci lolo....

bonne journée