Discussion :

[capi81]

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

[JML19]

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.

[fring]

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 :

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

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

[capi81]

Salut à tous

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