Optimisation de code avec shell
Bonjour,
Dans un de mes codes ci-dessous, j'ouvre plusieux pdf avec les fonctions shells pour copier//coller leurs contenus. Le code marche mais est plutôt long.De plus si je passe sur un PC plus vieux, certaines fois j'ai des bugs car la macro éxécute le code avant que le fichier soit ouvert ou fermé.
Avez-Vous une autre solution que le application.wait ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Application.Wait (Now + 3 / 3600 / 24)
Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe W:\Liste_de_fichier\" & NameFolder & "\Result\" & NameNoise, vbNormalFocus 'path & way"
Application.Wait (Now + 3 / 3600 / 24)
SendKeys "{ENTER}", True
'copier le texte
SendKeys "^a^c^q", True
Application.Wait (Now + 3 / 3600 / 24)
SendKeys "%{F4}", True
'coller dans l'onglet 2
Windows(ThisWorkbook.Name).Activate
ThisWorkbook.Activate
Sheets("pdf-noise").Select
Range("A1").Select
ActiveSheet.paste |
Ce code est activé 10 fois donc prendre 2 à 3 min ... et interdiction de toucher à la souris sinon catatrophe ....
