Bonjour,
Merci pour ta réponse
Mais malheureusement le programme reste toujours ouvert
Voici la modification que j'ai faite :
Private Sub CBImpression_Click()
Dim I As Integer
Dim Process As Variant
Application.ScreenUpdating = False
If OBFactures = True Then
Chemin = CheminDossierFacture
Else
Chemin = CheminDossierDevis
End If
For I = 0 To Me.LBListeDocument.ListCount - 1
If Me.LBListeDocument.Selected(I) = True Then
Dim NomFichier As String
Dim X As Long
X = FindWindow("XLMAIN", Application.Caption)
NomFichier = Chemin & Me.LBListeDocument.List(I)
ShellExecute X, "print", NomFichier, "", "", 1
End If
Next I
For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
If Process.Name = "AcroRd32.EXE" Then Process.Terminate
Next
Unload Me
End Sub
J'ai déclaré la variable Process (en objet ou variant)