> Tous les forums > Forum Bureautique
 Clavier virtuel dans excel (code pour fermeture)Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
loloheureux
  Posté le 01/01/2008 @ 10:06 
Aller en bas de la page 
Petit astucien

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
Publicité
gilbert_rgi
 Posté le 02/01/2008 à 08:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

voilà une possibilité sur la feuille.

VBA
  1. Dim clavier As Variant
  2. Sub claviervisuel()
  3. 'ouverture du clavier virtuel
  4. clavier = Shell("C:\WINDOWS\system32\osk.exe", 1)
  5. AppActivate clavier
  6. End Sub
  7. Sub fermeclavier()
  8. AppActivate clavier
  9. SendKeys "%{F4}", True
  10. AppActivate "Microsoft Excel"
  11. Sheets(1).Activate
  12. [a1].Select
  13. End Sub

loloheureux
 Posté le 02/01/2008 à 10:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re,

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

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

merci lolo....

bonne journée

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

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


Sujets relatifs
Creation d' une boucle macro dans fichier EXCEL pour impression
Excel 2007 RechercheV code figure pas dans matrice
Problème pour insérer colonne dans Excel
FORMULE EXCEL POUR RECHERCHE DANS UNE TABLE
problème pour insérer des lignes dans excel
formule pour excel et # dans excel
Raccourci clavier pour Excel 2003
raccourci clavier pour ouvrir excel
Code bouton pour lien Excel, et onglet pleine page
Astuce pour surligner la ligne active dans Excel
Plus de sujets relatifs à Clavier virtuel dans excel (code pour fermeture)
 > Tous les forums > Forum Bureautique