Quitter sans enregistrer doc word VBA+ listbox documents

Bonjour à tous,

J'ai réalisé une macro pour sélectionner dans une listbox un fichier, l'ouvrir, mettre des signets, l'imprimer et le fermer sans enregistrer.

Tout fonctionne sauf pour l'enregistrement, il quitte le document mais quelques secondes après il me demande si je veux sauvegarder ou pas. De plus dans le gestionnaire des tâches, l'application word (WINDORD.EXE) reste toujours ouverte.

J'ai essayé plusieurs codes, en vain...

Voici mon code sans le code sans quitter sans enregistrer :

Private Sub CommandButton1_Click() ' Code du bouton Imprimer du Userform
Dim NDF As String, Rep As String, fich As String, d As String
Dim WordApp As Object, WordDoc As Object
Rep = "C:\Users\nnni\Desktop"
fich = "cmt2.doc"

    If QM = "CMT" Then

                Set WordApp = CreateObject("Word.Application")
            Set WordDoc = WordApp.Documents.Open(Rep & "\" & fich, ReadOnly:=False)

        With WordApp
            .Visible = False

            ' copie le contenu du textbox1 à l'emplacement du signet "ref"
            WordDoc.Bookmarks("nom").Range.Text = Me.TextBox1.Text

            ' copie le contenu des textbox2 et 3 à l'emplacement du signet "NomPrenom"
            WordDoc.Bookmarks("prenom").Range.Text = Me.TextBox2.Text
            .PrintOut

End With

Else
Unload Me
End If
End Sub

j'ai voulu rajouter

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

mais il me dit qu'il y a une erreur.

Enfin j'ai affecté une valeur de la listbox a un fichier, comment dois-je faire pour affecter toutes les valeurs a tout les documents word sans réécrire le code X fois?

Pourriez-vous m'aider ?

Merci d'avance.

Bonjour,

à tester,

WordDoc.Close wdDoNotSaveChanges

Super ! ça fonctionne !

par contre, quelqu'un a une solution pour affecter chaque valeur listbox à chaque document ?

Rechercher des sujets similaires à "quitter enregistrer doc word vba listbox documents"