Discussion :

[Daniel.C]

Bonjour,

Je cherche à exécuter les touches ALT +Espace. le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "% "

affiche la bonne boîte de dialogue. Malheureusement, il désactive le pavé numérique.
Comment l'éviter, ou y a-t-il moyen d'afficher ce menu autrement sans la souris

Merci d'avance.

[kiki29]

Salut, va voir par ici ?

[Daniel.C]

Merci Philippe, mais la discussion à laquelle tu me renvoies a plus de messages. Pourrais-tu préciser un petit peu ?

[kiki29]

Re,

pallier le problème de désactivation des NumLock CapsLock ScrollLock PauseLock

il suffit à priori d'utiliser qqch comme ceci , à adapter à ton contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Wsh As Object  
 
            Set Wsh = CreateObject("WScript.Shell")
            With Wsh
                .SendKeys ....., True
                .....
            End With
            Set Wsh = Nothing

[Daniel.C]

Super,

Ca fonctionne !

Encore merci.