Discussion :

[drakkar_agfa]

Bonjour,

J'ai un problème avec SendKeys...
J'ai un USF avec un bouton, en cliquant sur le bouton, des champs se remplisent dans ma feuille excel. À la fin du code du bouton, j'apelle une function dans un module qui utilise sendKeys pour valider les données (F2 et enter) pour que le format s'actualise.

Voici mon code et j'explique ce qui se passe par la suite.

Dans mon bouton à la fin

Code :

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

1
2
    'Appelle la procédure qui met en édition et fait Enter sur la valeur sur la feuille
    F2Enter (gligne)

Dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub F2Enter(gligne As Double)
    On Error GoTo errF2Enter
    Dim iCol As Integer
    Dim sh As Worksheet
    Set sh = Worksheets("DFSreport")
    For iCol = 1 To iColInitialAmount
        sh.Cells(gligne, iCol).Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next iCol
exit_errF2Enter:
    Exit Sub
errF2Enter:
    MsgBox Err.Description
    Resume exit_errF2Enter
End Sub

Alors, tout se passe bien, chaque cellule voule se sélectionne bien mais le SendKeys ne se fait pas...

J'ai testé avec

Code :

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

1
2
3
4
Sub aTest()
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
End Sub

Dans un nouveau module et la cellule sélectionnée reçoit bien le F2 et enter.

Est-ce que vous pouvez me dire pourquoi dans mon sub le SendKeys ne se produit pas?

Un gros merci!

P.S. J'ai essayé avec des DoEvents avant et après les SendKeys et ça ne change rien. Merci

[aalex_38]

Bonjour,

Au lieu de sendkey pourquoi pas :

Code :

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

1
2
3
4
 
Application.Calculate
' ou 
ActiveSheet.Calculate

[drakkar_agfa]

Bonjour,

C'est les deux premières choses que j'ai testé mais ça ne fonctionne pas...
merci!

[aalex_38]

C'est les deux premières choses que j'ai testé mais ça ne fonctionne pas

Il me semble que ça marchait pourtant.

Bon peut être une autre piste, la sauvegarde du fichier en cours de macro ?

[drakkar_agfa]

Merci mais ça ne fonctionne toujours pas.

Ce que je comprends pas c'est que lorsque j'utilise ma macro

Code :

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

1
2
3
4
5
6
7
Sub ActualiserCellule()
 
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
 
    DoEvents
End Sub

ça fonctionne, mais quand c'est une macro qui apelle cette macro ça ne fonctionne pas...

[aalex_38]

si tu veux utiliser le sendkey ici, a mon avis tu dois mettre un timer, car le programme est alors dans une boucle et les send n'ont pas le temps de se faire

directement tiré de l'aide en ligne, j'ai du faire un wait de 5 secondes, il n'y a pas très longtemps :

Code :

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

1
2
3
4
5
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

[drakkar_agfa]

Testé mais ne fonctionne toujours pas...

Pourtant, le DoEvents devrait faire l'affaire, non?