Fermeture d'adobe reader 9 depuis excel vba

Bonjour,
Malgré des recherches sur le forum, je ne trouve pas a solution à mon problème.
Je travail depuis une macro d'un fichier excel 2003 qui ouvre un fichier PDF, l'imprime et revient sur le fichier excel en cours.
Cependant, il ne ferme pas adobe reader 9 et laisse la fenêtre ouverte.
Ci-joint le code ou il manque incontestablement la ligne de commande qui devrait fermer adobe reader 9.

D'avance, je vous remercie.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub fax() Dim oApp As Object Dim num, cimp Range("N2").Select num = ActiveCell cimp = Range("Q" & num).Value Dim NomFichier As String Dim x As Long x = FindWindow("XLMAIN", Application.Caption) NomFichier = cimp ShellExecute x, "print", NomFichier, "", "", 1 End Sub

---

Cordialement.

Bonjour,

A essayer. (je n'ai pas testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Sub fax() Dim oApp As Object Dim num, cimp Range("N2").Select num = ActiveCell cimp = Range("Q" & num).Value Dim NomFichier As String Dim x As Long x = FindWindow("XLMAIN", Application.Caption) NomFichier = cimp ShellExecute x, "print", NomFichier, "", "", 1 SendMessage x , WM_CLOSE, 0&, 0&. End Sub

---

a essayer aussi la simulation de ALT + F4

Code:

---

Sendkeys "%{F4}"

---

bonjour Jérôme.
Tout d'abord merci pour votre réponse.
Cependant, le code ne fonctionne pas avec le

Code:

---

SendMessage x, "WM_CLOSE, 0&, 0&"

---

.
Il me précise une erreur de compilation : Sub ou fonction non définie pour le SendMessage.
En ce qui concerne le code

Code:

---

SendKeys "%{F4}"

---

, aucune action n'est réalisée sur la fermeture d'adobe reader 9 .

Je doit très certainement oublier quelque chose et d'avance je vous remercie de votre aide.
Cordialement.

:merci:
Régixel

A ta place, j'essayerai de piloter ça en utilisant les objets Acrobate Reader plutôt que des ShellExecute.

Dans les outils > Référence , tu coches :
* Adobe Acrobat Browser Control
* Adobe Acrobat Type Library

Ensuite, tu peux utiliser l'explorateur d'objets pour aller regarder les objets disponibles dans ces trois librairies.
Entre autre, je remarque que l'objet AcroApp dispose de l'objet Exit. Ca doit pouvoir résoudre ton problème.

Salut,

Code:

---

1 2 3 4

Private Sub KillAcrobatReader() Dim RetVal As Long RetVal = Shell("Taskkill /im AcroRd32.exe /f", 0) End Sub

---

Bonjour,
Je fais suite à vos dernière proposition, cependant, mes compétences ne me permettent pas de remédier au problème.
J'ai bien activé les références Adobe Acrobat Browser control type ainsi que Adobe Acrobat 9.0 Type library, cependant, je ne trouve pas le code à inscrire.
Je suis encore débutant dans ce domaine et certaines choses m’échappent encore.
Je m'en remet à vous pour une aide car je ne trouve pas.
Cordialement.
Régixel
;)

Bonjour,

sachant que la solution du post #2 fonctionne avec la ligne Declare SendMessage et les bons paramètres …

Manque dans le code de jfontaine la déclaration de la fonction FindWindow
ainsi que l'affectation de la valeur de WM_CLOSE (&H10 ?) !

Désolé je n'ai rien sous le coude, donc effectuer une recherche dans les discussions de ce forum …

Et le post #5 (à part que c'est un Variant Double qui est renvoyé …) ? Simple pourtant !