Code pour automatiser une saisie avec sendkeys

Salut le forum

Permettez que j'aille droit au sujet.
En effet, j'ai le code ci-dessous qui me permet de réaliser une saisie automatique vers un autre interface (word, excel lui-même ou un logiciel...).
Lorsque j'exécute la macro sur word ou excel, l'automatisme de la saisie se fait sans difficulté.
Mais lorsque je tente les même manoeuvres avec notre logiciel, il y'a des disfonctionnements :
la saisie se fait automatiquement mais ne se termine pas : au lieu de 47 données à saisir automatiquement sur notre logiciel, il se limite souvent à 5, 10 ou 15 et le reste sans suite.
Je vous le soumet afin de bénéficier de vos "connaissances magiques".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub activation() 'On Error GoTo gestionerreur AppActivate "NOM DU LOGICIEL ICI" Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 4) For i = 3 To 50 SendKeys Cells(i, 4).Value SendKeys "~" Next Exit Sub gestionerreur: MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon" End Sub

---

N.B: avec ou sans cette partie du code, c'est le même résultat :

Code:

---

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 4)

---

Bonne compréhension

Bonsoir

Si cela fonctionne sous Word Excel c'est que le logiciel interprète mal quelque chose : Peut être le Next qui devrait être Next i il me semble.

Bonjour,

L'utilisation de SendKeys n'est pas d'une fiabilité sans reproche... et en l'utilisant dans une boucle tu envois une rafale de commande en une fraction de seconde, le logiciel en question n'arrive probablement pas à le digérer.

A tout hasard essaie comme ceci

Code:

---

1 2 3 4 5 6

For i = 3 To 50 SendKeys Cells(i, 4).Value Application.Wait Now + TimeValue("00:00:01") SendKeys "~" Application.Wait Now + TimeValue("00:00:01") Next

---

Salut à tous

Merci Fring. ca marche maintenant.
Je vous remercie infiniment.