Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\BV8010 test.pdf"
Application.OnTime Now + 2 / 86400, Me.CodeName & ".Copie"
End Sub
Sub Copie()
CreateObject("wscript.shell").SendKeys "^a^c" 'sélectionne et copie la totalité du pdf
Application.OnTime Now + 2 / 86400, Me.CodeName & ".Colle"
End Sub
Sub Colle()
ThisWorkbook.Sheets("Sheet1").Activate
Range("A1").PasteSpecial 'colle l'ensemble de la sélection
AppActivate "Excel"
End Sub