[VBA-A]Problème avec instruction SendKeys

Bonjour,

Je développe en VBA sous Access.
Je souhaite effectuer une impression dans un fichier (via Postscript Writer pour ceux qui connaissent).
J'utilise la méthode "OpenReport" pour imprimer mais la fenêtre d'impression apparait et demande le nom et le chemin du fichier. j'utilise alors l'instruction "SendKeys" pour renseigner automatiquement cette fenêtre (envoie des caractères à la fenêtre active pour simuler la saisie).
Le pb c'est que j'ai beaucoup de pertes de caractères avec cette commande ce qui créé des bugs dans l'application. Connaissez vous un autre moyen de renseigner la fenetre d'impression sans passer par le Sendkey.
Merci d'avance !

As-tu mit le paramètre qui permet d'attendre que les caractères soit tapés?
Exemple :

Code:

---

SendKeys "Salut, Comment ca va ?", True

---

Sinon tu fait comme ca :

Code:

---

1 2 3 4 5

SendKeys "Salut, ", True DoEvents SendKeys "Comment ", True DoEvents SendKeys "Ca va ?", True

---

Les DoEvents font "perdre du temps" a ton application ;)

En fait j'ai plûtot fait comme ça :SendKeys "Salut, Comment ca va ?", False ... pour ne pas bloquer l'application en cas de pb.
Mais au final, j'ai de temps en temps des résultats du style "ut, Comment ca va ?" (le "Sal" a disparu).
Je vais tester avec un DoEvents et je te tiens au courant.
Merci pour ton aide !

Désolé, ça ne marche pas :cry:

J'ai deux commande qui se suivent (le sendKeys pour l'envoi de caractères et le OpenReport pour l'impression:

SendKeys pstrFileNamePostScript & "{ENTER}", False
DoCmd.OpenReport pstrNameReport, acViewNormal, , pstrWhereInstruction

La meilleure solution serait de pouvoir rentrer le paramètre d'impression (pstrFileNamePostScript) sans passer par le SendKeys mais je sais pas comment !

Merci de votre aide.

Meme en mettant des DoEvents un peu partout ca ne fonctionne toujours pas?
Perso, j'avais le meme genre de probleme, et pour le résoudre j'avais mis des boucle de DoEvents pour vraiment ralentir le programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim Boucle As Single   SendKeys "Salut, ",True   For Boucle=0 To 50 DoEvents Next Boucle   SendKeys "Ca va ?"   For Boucle=0 To 50 DoEvents Next Boucle   ... ...

---

Je ne connais pas d'autres solution. Dsl :(