Discussion :

[julio123]

Bonjour, j'ai une petite question rapide

Voilà, j'imprime un document word à partir d'un formulaire access et dans ce document, je transmets des variables access.

A la fin de cette opération, word me demande si je veux enregistrer le document que je viens d'imprimer. Ma réponse est non.

Je voudrais savoir comment faire disparaitre cette fenêtre de demande d'enregistrement

Merci d'avance

Mon code est pour l'instant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
 
With W_App
  .Documents.Open ("c:\AccuséAvec")
  .ActiveDocument.Bookmarks("Date1").Range.Text = Format(Date, "dd/mm/yyyy")
  .ActiveDocument.Bookmarks("Date2").Range.Text = Format(Date, "dd/mm/yyyy")
  .ActiveDocument.Bookmarks("Date3").Range.Text = Me.txtDate
  .PrintOut False
  .Quit
Set W_App = Nothing

[THOGAL]

as tu essayé de faire un .close avant de quitter et de bien parmétrer les .close pour mettre une sorte de acsaveno ??? (voir l'explorateur d'objet pour avoir les paramètres de close !)

[julio123]

J'utilise access 97 et il semble (en regardant notamment les exemples) que dans mon cas la fct close ne peut pas prendre de paramètres tq acSaveNo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
......
 .Documents.Open ("c:\AccuséAvec")
.ActiveDocument.Bookmarks("Date1").Range.Text = Format(Date, "dd/mm/yyyy")
.ActiveDocument.Bookmarks("Date2").Range.Text = Format(Date, "dd/mm/yyyy")
.ActiveDocument.Bookmarks("Date3").Range.Text = Me.txtDate
.PrintOut False
.Documents.Close
.Quit
 
Cela marche mais ne donne pas le résultat attendu
......

[THOGAL]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Documents.Close false

ca donne quoi ? :

[julio123]

OK ça marche