Bonjour à tous

Je viens vers vous pour de plus amples éclaircissements.
En effet, j'ai automatisé la saisie des informations de mon fichier excel vers notre logiciel.
Malgré le menu d'aide sur la sendkey, j'ai pas eu de réponses satisfaisante voila pourquoi je souhaite me referer à vous afin de trouver des réponses à mes interrogations.
1) Est-il possible de faire "autre chose" (ouvrir d'autre fichier ou faire des saisies manuelles sur d'autre fichiers...) pendant que la macro sendkey est exécutée(en cours de traitement)?
2)J'ai constaté que des fois, que l'exécution de la macro n'active pas le logiciel. pourtant la macro devrait d'abord ouvrir le logiciel avant de reporter les données dessus. ce qui n'est souvent pas le cas. dans la même suite, lorsque je constate cela (que le logiciel n'a pas été activé, je l'active moi et je vois que la macro avait déjà commencé a reporter les informations.
J'aimerai savoir ce qui est à l'origine de cela et si possible comment solutionner ces points soulevés (1 et 2)?
Ci-dessous le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Sub activePack()
'On Error GoTo gestionerreur
If MsgBox("ASSUREZ-VOUS QUE VOTRE", vbYesNo, "Demande de confirmation") = vbYes Then
 
AppActivate "NOM DU LOGICIEL ICI"
 
'POSITIONNEZ-VOUS SUR LE MENU SIMPLIFIE IGOR SOUHAITE
For I = 3 To 6
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 Next
    SendKeys "N" & Chr(13), True
    attendre 0.6
    SendKeys "{LEFT}"
    SendKeys "{ENTER}"
    attendre 1
 
For I = 7 To 43
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F3}"
    attendre 1
For I = 44 To 51
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F6}"
    attendre 1
 
'For I = 51 To 51
    'SendKeys Cells(I, 10).Value, True
    'attendre 0.6
    'SendKeys "~"
    attendre 1
 
Exit Sub
gestionerreur:
MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon"
End If
End Sub
 
Sub activesimple()
'On Error GoTo gestionerreur
If MsgBox("ASSUREZ-VOUS QUE VOTRE SESSION", vbYesNo, "Demande de confirmation") = vbYes Then
 
AppActivate "NOM DU LOGICIEL ICI"
 
'POSITIONNEZ-VOUS SUR LE MENU SIMPLIFIE IGOR SOUHAITE
For I = 3 To 43
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F3}"
    attendre 1
For I = 44 To 51
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F6}"
    attendre 1
 
For I = 52 To 52
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
Next
Exit Sub
gestionerreur:
MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon"
End If
End Sub
 
Sub attendre(sec%)
Dim deb&, fin&
deb = Timer
fin = deb + sec%
Do Until Timer >= fin
DoEvents
Loop
End Sub
Je reste à votre disposition pour de plus amples informations