Application.SendKeys ("~"), True laisse indifférent excel sous vista

[carlos]

Bonsoir
cette ligne fonctionne tres bien sous xp mais laisse indifférent excel sous vista.

Ca ne provoque pas de bug mais ....
cela me permettait "d'appuyer" virtuellement sur un bouton pour declencher l'evenement .

Tournoi.Controls("F1P" & a).SetFocus
Application.SendKeys ("~"), True


Merci de m'aider

Carlos

 

[PMO2]

Re : Application.SendKeys ("~"), True laisse indifférent excel sous vista

Bonjour,

Essayez en utilisant l'Api Windows keybd_event comme dans l'exemple joint

1) Dans un nouveau classeur, créez un UserForm1 avec 4 TextBox (TextBox1, TextBox2, TextBox3, TextBox4)
2) Copiez le code suivant dans un module standard

Public Declare Sub keybd_event Lib "user32.dll" ( _
  ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const VK_RETURN = &HD
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Const VK_Z = &H5A 'pour l'exemple

Sub LanceUserForm()
Dim i&
'--- Donne le focus à la 3ème TextBox ---
UserForm1.Controls("TextBox3").SetFocus
'--- Y inscrit 5 fois "z" ---
For i& = 1 To 5
  keybd_event VK_Z, 0, 0, 0
  keybd_event VK_Z, 0, KEYEVENTF_KEYUP, 0
Next i&
    '### Ce qui vous intéresse ###
'--- Simule Enter (donne le focus au contrôle suivant) ---
keybd_event VK_RETURN, 0, 0, 0
keybd_event VK_RETURN, 0, KEYEVENTF_KEYUP, 0
    '#############################
'--- Active le UserForm ---
UserForm1.Show
End Sub

3) Lancez la macro LanceUserForm.
Le Userform apparaît avec le focus sur TextBox3 où on simule la frappe "zzzz" puis la touche "Entrée" ce qui donne le focus à TextBox4.

Cordialement.

PMO
Patrick Morange

 

[carlos]

Re : Application.SendKeys ("~"), True laisse indifférent excel sous vista

Bonjour PMO2 , bonjour le forum

C'est impeccable , ca marche .

Merci beaucoup PMO2

Carlos

 

[norm1111]

Re : Application.SendKeys ("~"), True laisse indifférent excel sous vista

Bonsoir a tous,

J'utilise la solution de PMO2 ca fonctionne tres bien avec les quatre textbox.
Par contre dans mon application j'ai d'autres textbox qui sont remplis par progammation comme date et numero de facture et autres.
Je ne veux pas qu'il donne le focus a la date par exemple. J'aimerais avoir le controle sur setfocus de mon choix .
Merci d'avance
Ta solution me donne beaucoup d'espoir dans la poursuite de mon application

 

[PMO2]

Re : Application.SendKeys ("~"), True laisse indifférent excel sous vista

Bonjour,

Essayez avec le code suivant

Public Declare Sub keybd_event Lib "user32.dll" ( _
  ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const VK_RETURN = &HD
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Const VK_Z = &H5A 'pour l'exemple

Sub LanceUserForm()
Dim i&

'### Saute la tabulation/focus sur TextBox4 ###
'### mais on peut y accéder à la main
UserForm1.TextBox4.TabStop = False

'### Bloque l'accès à TextBox4 ###
''With UserForm1.TextBox4
''  .Text = Format(Now, "dd/mm/yy")
''  .Locked = True  ' OU ALORS .Enabled = False
''End With
 

'--- Donne le focus à la 3ème TextBox ---
UserForm1.Controls("TextBox3").SetFocus
'--- Y inscrit 5 fois "z" ---
For i& = 1 To 5
  keybd_event VK_Z, 0, 0, 0
  keybd_event VK_Z, 0, KEYEVENTF_KEYUP, 0
Next i&
    '### Ce qui vous intéresse ###
'--- Simule Enter (donne le focus au contrôle suivant) ---
keybd_event VK_RETURN, 0, 0, 0
keybd_event VK_RETURN, 0, KEYEVENTF_KEYUP, 0
    '#############################
'--- Active le UserForm ---
UserForm1.Show
End Sub

Cordialement.

PMO
Patrick Morange

 

[norm1111]

Re : Application.SendKeys ("~"), True laisse indifférent excel sous vista

Bonjour le forum

J'ai terminé mon programme de caisse grâce a tes conseils, je cherchais la solution depuis plus d'une semaine.

MERCI beaucoup a PMO2

Normand