utilisation de sendkeys

[cointel]

Bonjour,

Je ne sais si certains d'entre vous on déjà eu ce problème avec l’utilisation de sendkeys.
Voici qq ligne de code. C'est une macro qui scrute dans une colonne issue d'un filtre (les lignes ne se suivent donc pas)
Mais voila le pb, sendkeys ne fonctionne pas là ou je l'ai placé

Sub essai()

Do While ActiveCell.Value <> 0

Select Case MsgBox("Impression de la fiche", vbYesNo, "voulez-vous continuer ?")
Case vbNo
GoTo fin
End Select

SendKeys "{down}"

Loop

fin:

End Sub

par contre, et c'est plein de saveur () si je place sendkeys en fin de procédure cela fonctionne (mais cela ne me sert à rien). exemple:
Sub essai()

Do While ActiveCell.Value <> 0

Select Case MsgBox("Impression de la fiche", vbYesNo, "voulez-vous continuer ?")
Case vbNo
GoTo fin
End Select


Loop

fin:
SendKeys "{down}"
End Sub

agaçant, n'est ce pas ?!

si l'un ou l'une d'entre vous peu m'aider, je l'en remercie par avance

Cointel

 

[MJ13]

Re : utilisation de sendkeys

Bonjour Cointel

Il faut savoir que sendkeys pose souvent des problèmes. Mais en mettant un fichier sans données confidentielles représentant ton problème, il y aura surement quelqu'un pour t'aider.

 

[mapomme]

Re : utilisation de sendkeys

Bonjour cointel, MJ13,

Pour éviter les inconvénients de sendkeys, un code VBA dans le module de la 'Feuil1' sans Sendkeys et sans sélection de cellule.

 

[cointel]

Re : utilisation de sendkeys

Bonjour mapomme et merci beaucoup

cela fonctionne impécablement

bonne journée

Cointel