Bonjour le forum !

Je viens vers vous après plusieurs recherches ici sans trouver mon bonheur. Et puisque chaque situation est spécifique, je tente ma chance auprès de vous.

Je cherche, comme indiqué dans le titre à générer, sauvegarder, imprimer et quitter un document word depuis excel.
En ce qui concerne les étapes de génération et de sauvegarde, pas de soucis, tout se déroule à merveille. Mais lorsque je souhaite imprimer le document, puis quitter word, rien ne va plus !

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
21
22
23
24
25
26
27
28
29
 
Sub Enregistrement()
Dim FileName, NomFichier As String
Dim Chemin As String, Chemin2 As String
Dim WordApp As Object
Set WordApp = CreateObject("word.application")
 
'Enregristrer le document dans le dossier courriers
If ActiveDocument.Name = "ZModele Courrier.docm" Then
    Objet = Courrier.Liste_Courrier_Objet.Value
    Nom = Accueil.Liste_Nom.Value
    DateRDV = Courrier.TB_Courrier_Date_RDV.Value
    Chemin2 = ActiveDocument.Path
    Chemin = Chemin2 & "\Courriers"
    NomFichier = Nom & " - " & DateRDV & " - " & Objet & ".docx"
 
    ChangeFileOpenDirectory _
            Chemin2 & "\Courriers\"
            ActiveDocument.SaveAs FileName:=NomFichier, FileFormat:=wdFormatDocumentDefault
 
    'lance l'impression et quitte
        ActiveDocument.PrintOut
        WordApp.Quit
Else
    WordApp.ActiveDocument.Save
End If
    WordApp.Quit
    Set WordApp = Nothing
End Sub
Ce qui me pose donc problème c'est la partie 'lance l'impression et quitte. Je ne comprends absolument pas pourquoi rien ne se passe...

Des idées ?

Merci !