Discussion :

[regixel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sendkeys "%{F4}"

[regixel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.


Régixel

[Menhir]

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.

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[regixel]

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

[Marc-L]

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 !