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

[atk_49]

Bonjour.

Je travaille pour une société de commerce de gros, nous utilisons un tableur Excel faisant office de configurateur de produit nous guidant dans la création des devis.
Habituellement les utilisateurs recopiaient manuellement les informations générées par ce configurateur vers le programme de gestion (devis).

En observant leur façon de faire les devis, je me suis aperçu que toute la création du devis était réalisable avec des raccourcis clavier internes au programme de gestion et qu'un script Sendkeys pouvait donc remplacer leurs actions.
Ils gagnent désormais un temps fou grâce à cela. Voici donc pourquoi j'utilise les sendkeys.

Je vais décrire les premières étapes du script afin que vous le compreniez dans son contexte. Il est lancé depuis un bouton de commande présent dans le configurateur.

Application.Wait (Now + TimeValue("0:00:03"))
Temps de latence permettant à l'utilisateur de basculer sur la fenêtre devis du programme de gestion, les Sendkey suivants sont des raccourcis clavier permettant la construction du devis avec les données du tableur excel.
A partir de la, l'utilisateur ne touche plus à rien.

Application.SendKeys "~"
Simule l'appuie sur la touche "Entrée", étape de mise en page.

Application.Run ("Feuil30.infomachine")
Démarre une macro permettant de copier dans le presse papier windows des informations provenant de tableur excel.

Application.SendKeys "^v"
Ctrl+V, colle les informations copiées dans le devis.

Application.SendKeys "{DOWN}"
Flèche du bas, permets un saut de ligne dans le devis.

Application.Wait (Now + TimeValue("0:00:01"))
Pause volontaire afin que Windows "digère" le script. (ce que j'aimerais réduire voire supprimer)

Application.Run ("Feuil30.infoproduit")
Nouvelle copie de données.

Etc...

Le script complet fait 220 lignes, le gain en productivité est donc colossale.

[atk_49]

@Marc-L : Cette fonction ne prend pas en charge les millisecondes, or c'est ce qu'il me faudrait.

J'essaie d'utiliser la fonction sleep mais sans succès pour le moment.

"Erreur de compilation.
Des constantes, chaines de longueur fixe, tableau, types définis par l'utilisateur...etc."

[patricktoulon]

bonjour
oui on avait compris les sendkeys mais ce que l'on essaie de te dire c'est qu'il y a certainement un autre moyen plus fiable

en effet les send keys fonctionne dans l'application Excel et donc pas fiable en ce qui concerne leur action sur une autre application
c'a c'est déjà vu !!!


au pire je préfèrerais l'api keybd_event qui fait la même chose que sendkeys et qui est quand même plus sur

mais c'est quand même une solution bien fragile en terme de fonctionnement il suffit que le PC soit charger en proc et tout change
donc les temps d'attente changent etc......

tu dis que vous utilisez une classeur comme app pro je me dis alors que tu n'a pas besoins de tout ca

explique nous bien comment tu bosse

tu part d'un classeur et après?

y a t il une autre application ? si oui la quel son nom
peut être que l'on peut communiquer plus facilement que tu crois avec celle ci