Ver num desactiver apres des senkey

Le
aveclalune
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+
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26396511
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+

isabelle
Le #26396518
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+

aveclalune
Le #26396517
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
isabelle
Le #26396521
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


MichD
Le #26396524
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
Publicité
Poster une réponse
Anonyme