Discussion :

[atk_49]

Bonjour.

Ci-dessous un code me permettant d'automatiser une ressaisi récurrente.
L'utilisateur déclenche la procédure, il a alors 3 secondes pour basculer dans un programme de gestion, ou les différentes actions du script permettent de mettre en forme un document avec les données du classeur Excel.

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
Private Sub CommandButton3_Click()
Dim info As String
Dim MyData As New DataObject
Unload UserForm12
Application.Wait (Now + TimeValue("0:00:03"))
Application.SendKeys "~"
Application.Run ("Feuil30.infomachine")
Application.SendKeys "^v"
Application.SendKeys "{DOWN}"
Application.Wait (Now + TimeValue("0:00:01"))
Application.Run ("Feuil30.infoproduit")
Application.SendKeys "^v"
Application.SendKeys "{DOWN}"
Application.SendKeys "{LEFT}"
Application.Wait (Now + TimeValue("0:00:01"))
info = [C103]
MyData.SetText info
MyData.PutInClipboard
Application.SendKeys "^v"
Application.SendKeys "~"
Application.Wait (Now + TimeValue("0:00:01"))
Range("A98:D124").CopyPicture xlScreen, xlPicture
Application.SendKeys "{F4}"
Application.SendKeys "^v"
Application.SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:01"))
Application.Run ("Feuil30.capturedelai")
Application.SendKeys "^v"
Application.SendKeys "{ENTER}"
Application.SendKeys "^e"
Application.SendKeys "%v"
End Sub

Les lignes Application.Wait permettent de poser un temps mort afin que les actions aient le temps de se terminer, cela fonctionne très bien mais augmente le temps d’exécution du code.
Quelles sont les possibilités d'optimisation du temps d’exécution de ce code ?

Merci d'avance de vos réponses, en espérant avoir été clair dans mes explications.

Bonne journée à vous.

[Marc-L]

Bonjour, bonjour !

Aucune possibilité d'amélioration en utilisant SendKeys ‼ (Si ce n'est réduire les temps de pause …)
Sinon un programme de gestion digne de ce nom doit pouvoir importer des données !

Voilà, voilà !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[atk_49]

Bonjour Marc-L et merci de ta réponse.

Donc tant pis ! Malheureusement le programme de gestion n'est pas tip-top pour importer des données...

Concernant la réduction des pause, je ne pense pas pouvoir aller en dessous d'1 sec. Vous confirmez ?

Bonne journée à tous.

[Marc-L]

On doit pouvoir en entrant directement une valeur numérique :

voir déjà ce que vaut le TimeSerial pour 1 seconde puis tester en réduisant la valeur …

[kiki29]

Salut, c'est vraiment n'importe quoi l'utilisation des sendkeys dans ce cas, commence par utiliser l'enregistreur de macros et optimise à la main le code généré.

[patricktoulon]

purée j'ai jamais vu ca !!!!

si tu nous disais textuellement et intelligiblement ce que tu veux faire parce que la!!!!! j'ai pas les mots pour décrire ce que je viens de lire

visiblement on reste dans l'application puisque je ne vois nul part que l'on en sort
je suppose donc que tu travaille sur un ou plusieurs sheets