sPages = "1"
Set Clip = New MSForms.DataObject
Clip.Clear
Clip.SetText sPages, 1
Clip.PutInClipboard
sAcro = "C:\Program Files\microsoft office\office14\winword.exe"
sFichier = "C:\DATA\word_data\blagues1.doc"
Shell sAcro & " " & sFichier, vbNormalFocus ' J'ai bien le fichier à l'écran
Sleep 500
Application.SendKeys "^p", True 'Pour aller au menu IMPRIMER OK , mais la SUB ne fait plus rien ci-dessous
Application.SendKeys "{TAB}", True ' Pour focus du bouton Imprimer
Application.SendKeys "{ENTER}", True ' Action
Application.SendKeys "%g", True
Application.SendKeys "^v", True
Application.SendKeys "{ENTER}", True
Sleep 500
KillAcrobatReader
Set Clip = Nothing