> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

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