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 ?
Ce code est activé 10 fois donc prendre 2 à 3 min ... et interdiction de toucher à la souris sinon catatrophe ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager