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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 4)
Bonne compréhension