Je souhaite fermer acrobat reader automatiquement dès que mon fichier excel se ferme par un commandbutton. J'avais pensé à ça :
Dim acrobat As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean) acrobat = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe", vbNormalFocus) SendKeys "%{F4}", True End Sub
Le fait de relancer acrobat même si il est déjà ouvert n'ouvre pas une nouvelle fenêtre mais active celle déjà ouverte d'où ces deux lignes de programme. Mais ça marche une fois sur deux. Je ne comprend pas pourquoi des fois ça ferme acrobat reader et des fois ça l'active mais ça le ferme pas!!
Marsh Posté le 05-12-2005 à 12:01:26
Bonjour à tous,
Je souhaite fermer acrobat reader automatiquement dès que mon fichier excel se ferme par un commandbutton.
J'avais pensé à ça :
Dim acrobat As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
acrobat = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe", vbNormalFocus)
SendKeys "%{F4}", True
End Sub
Le fait de relancer acrobat même si il est déjà ouvert n'ouvre pas une nouvelle fenêtre mais active celle déjà ouverte d'où ces deux lignes de programme.
Mais ça marche une fois sur deux. Je ne comprend pas pourquoi des fois ça ferme acrobat reader et des fois ça l'active mais ça le ferme pas!!
Quelqu'un aurait-il une autre solution?
Merci pour vos réponses