Bonsoir à ceux qui passeront par là.

J'imprime un "PDF" comme ceci:

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
20
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Sub IMPRIMER_PDF()
    Dim FICHIER_A_IMPRIMER As String
    Dim x As Long
    x = FindWindow("XLMAIN", Application.Caption)
 
' Le chemin du "FICHIER_A_IMPRIMER" est à adapter:
 
FICHIER_A_IMPRIMER = "C:\Documents and Settings\MA_POMME\Bureau\MACHIN.pdf"
 
    ShellExecute x, "print", FICHIER_A_IMPRIMER, "", "", 1
 
End Sub
Cependant l'Application utilisée reste ouverte! Ce n'est pas mon souhait.
Je sais fermer le processus de l'une ou l'autre.
Mais ne sachant pas celui ouvert par le biais de ma procédure,
je ne sais comment trouver son Nom, et le faire.
(Ou simplement fermer la dite Application)

Merci d'avance, si vous m'apporter une aide.

Bonne fin de fin de semaine à tous.

Yann