quitter sans enregistrer doc word vba+ listbox documents

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
d
doudou59700
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 11 mars 2016
Version d'Excel : 2000

Message par doudou59700 » 14 novembre 2017, 23:04

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.
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 14 novembre 2017, 23:44

Bonjour,

à tester,
WordDoc.Close wdDoNotSaveChanges
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
d
doudou59700
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 11 mars 2016
Version d'Excel : 2000

Message par doudou59700 » 15 novembre 2017, 08:17

Super ! ça fonctionne !

par contre, quelqu'un a une solution pour affecter chaque valeur listbox à chaque document ?
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message