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 : 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
Ce code est activé 10 fois donc prendre 2 à 3 min ... et interdiction de toucher à la souris sinon catatrophe ....