Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ver num desactiver apres des senkey

5 réponses
Avatar
aveclalune
Bonjour les sp=E9cialistes,
Jai un soucis apres envoi de senkey dans une macro=20
le vernum se retrouve d=E9sactiv=E9 au retour=20
Je ne vois pas la raison
Merci pour une solution A+

5 réponses

Avatar
isabelle
bonjour,

sans voir la macro, moi non plus je ne vois pas.

isabelle

Le 2016-04-27 04:17, aveclalune a écrit :
Bonjour les spécialistes,
Jai un soucis apres envoi de senkey dans une macro
le vernum se retrouve désactivé au retour
Je ne vois pas la raison
Merci pour une solution A+

Avatar
isabelle
voir la correction ici : https://support.microsoft.com/fr-ca/kb/179987
isabelle

Le 2016-04-27 08:40, isabelle a écrit :
bonjour,

sans voir la macro, moi non plus je ne vois pas.

isabelle

Le 2016-04-27 04:17, aveclalune a écrit :
Bonjour les spécialistes,
Jai un soucis apres envoi de senkey dans une macro
le vernum se retrouve désactivé au retour
Je ne vois pas la raison
Merci pour une solution A+

Avatar
aveclalune
Voici un extrait de la macro
je pensais que le pb était general
A la rigueur si pas de solution comment remettre le clavier en ver num allu mé
par macro

Merci a++
Jean Philippe



Sheets("Toto").Activate
Range(Cells(1, 1), Cells(500, 6)).ClearContents

AppActivate "WordPad"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^a", True ' Selectionne tout
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^c", True ' Copié
Application.Wait (Now + TimeValue("0:00:01"))

AppActivate "Microsoft Excel"
Windows("Lecture_commande.xls").Activate
Sheets("Toto").Cells(1, 1).Select
ActiveSheet.Paste
Avatar
isabelle
si la commande DoEvents ne fonctionne pas comme indiquer ici:
https://support.microsoft.com/fr-ca/kb/179987
pour remettre le clavier en ver num allumé, voir l'exemple ici:
https://support.microsoft.com/fr-ca/kb/177674
isabelle

Le 2016-04-27 09:21, aveclalune a écrit :

Voici un extrait de la macro
je pensais que le pb était general
A la rigueur si pas de solution comment remettre le clavier en ver num allumé
par macro

Merci a++
Jean Philippe



Sheets("Toto").Activate
Range(Cells(1, 1), Cells(500, 6)).ClearContents

AppActivate "WordPad"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^a", True ' Selectionne tout
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^c", True ' Copié
Application.Wait (Now + TimeValue("0:00:01"))

AppActivate "Microsoft Excel"
Windows("Lecture_commande.xls").Activate
Sheets("Toto").Cells(1, 1).Select
ActiveSheet.Paste


Avatar
MichD
Bonjour,

Voici un fichier exemple utilisant les API de Windows
pour verrouiller ou déverrouiller les touches :

Caplock - NumLock - Scrolllock -

Après l'exécution de la macro, comme dernière ligne de code, tu n'as
qu'à appeler la macro. Dans ton classeur, en plus de la déclaration des
API et des constantes, tu peux inclure seulement le bout de code dont tu
as besoin.

http://www.cjoint.com/c/FDBn0tCvirX

MichD