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.