[VB.NET][Automation Word]utiliser un document word comme un report

Version imprimable

25/05/2006, 20h05
kinganasius

[VB.NET][Automation Word]utiliser un document word comme un report

bonjour ;
lorsque je réouvre mon document word, aprés l'avoir généré et remplis et refermé à partir des informations saisis dans mon application vb.net, je trouve les dernières informations y figurant toujours :cry: ! ma question et comment faire pour que mon document word reste intacte aprés toute génération?
et merci :D
25/05/2006, 21h16
jab

Ben en ne le sauvant pas. :koi:
26/05/2006, 11h34
kinganasius

aparament j'ai pas bien expliqué le problème.
la génération et l'impression de mon report word se fait de manière transparante; donc moi je n'effectue aucune sauvegarde.
lorsque je veux générer un autre report avec de nouvelles informations à partir de mon application VB.NET, je me retrouve avec les anciennes informations auquelles s'ajoute les nouvelles infos :? . je crois maintenant que la situation est plus claire.
alors si vous avez une idée (un conseil, quelque lignes de code, un tutoriel interessant ...) n'hésitez surtout pas à la partager avec moi.
et merci :D
26/05/2006, 14h50
jab

tu n'auraipas un bout de code à montrer car d'après ce que tu me dis, il doit belle et bien y avoir un save ou alors le document reste en mémoire car pas fermé et tu ajoutes,à la suite.

voila le code complet de du bouton qui me permet de générer mon document word

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
  Private Sub cmd_edit_recipi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_edit_recipi.Click
        Dim doc As New word.Application
        Dim path_file = "c:\récépissé.doc"
        Dim recipi As word.Document = doc.Documents.Open(FileName:=path_file)
        doc.Selection.HomeKey()
 
        doc.Visible = False
        doc.ActiveDocument.Bookmarks("num_dossier").Select()
        doc.Selection.InsertAfter(num_dossier.Text)
 
        doc.ActiveDocument.Bookmarks("nom_adh").Select()
        doc.Selection.InsertAfter(cb_emp.Text)
 
        doc.ActiveDocument.Bookmarks("benef").Select()
        If (chk_adherent.Checked = True) Then
            doc.Selection.InsertAfter("Moi Même")
        ElseIf (chk_enfant.Checked = True) Then
            doc.Selection.InsertAfter(Trim(cb_enfant.Text))
        ElseIf (chk_conjoint.Checked = True) Then
            doc.Selection.InsertAfter(Trim(txt_conjoint.Text))
        End If
 
 
        doc.ActiveDocument.Bookmarks("frais_eng").Select()
        doc.Selection.InsertAfter(Trim(txt_frais_eng.Text) + " dhs")
 
        doc.ActiveDocument.Bookmarks("npp").Select()
        doc.Selection.InsertAfter(Trim(txt_npp.Text))
 
        doc.ActiveDocument.Bookmarks("npj").Select()
        doc.Selection.InsertAfter(Trim(txt_npj.Text))
 
        doc.ActiveDocument.Bookmarks("typ_dos").Select()
        doc.Selection.InsertAfter(Trim(cb_type_dossier.Text))
 
        doc.ActiveDocument.Bookmarks("av_cnia").Select()
        doc.Selection.InsertAfter(Trim(txt_av_cnia.Text) + " dhs")
 
        doc.ActiveDocument.Bookmarks("av_cnops").Select()
        doc.Selection.InsertAfter(Trim(txt_av_cnops.Text) + " dhs")
 
        doc.ActiveDocument.Bookmarks("total").Select()
        doc.Selection.InsertAfter(Trim(txt_total.Text) + " dhs")
 
        doc.ActiveDocument.Bookmarks("date_pec").Select()
        doc.Selection.InsertAfter(Trim(txt_date_pec.Text))
 
        doc.ActiveDocument.PrintOut()
        'recipi.Close()
        'doc.Quit()
        CType(recipi, word._Document).Close()
        CType(doc, word._Application).Quit()
 
 
    End Sub

30/05/2006, 15h56
jab

La méthode save peut prendre des paramétres dont un qui spécifie si le document doit être sauvé ou non. Essaye de spécifier qu'il ne doit pas être sauvé. C'est le premier paramètre et il y a 3 valeurs possibles. ;)
31/05/2006, 15h12
kinganasius

j'ai essayé de mettre .documents.save() mais ça n'a pas marché :( .
est ce que vous pouvez être plus explicite... je vous en serai reconnaissant
31/05/2006, 15h24
DontShootMe
Bonjour,

Essaye avec ça :
Code:

1 2 3 4 recipi.Close(0) ' qui est l'equivalent de word.WdSaveOptions.wdDoNotSaveChanges doc.Quit()
Dis nous si cela fonctionne ?

En esperant t'avoir aider !
Bon Courage !

Et pourquoi tu fais cela :
Code:

1 2 3 CType(recipi, word._Document).Close() CType(doc, word._Application).Quit()
? :oops:

31/05/2006, 20h04
jab

Citation:

Envoyé par kinganasius

j'ai essayé de mettre .documents.save() mais ça n'a pas marché :( .
est ce que vous pouvez être plus explicite... je vous en serai reconnaissant

:oops: Désolé j'étais à coté de mes pompes. Je voulai écrire la méthode Close prend des paramêtres. Exactement comme la dit DontShootMe :oops:
01/06/2006, 11h38
kinganasius

merci les gars ça a marché à merveille :D merci beaucoup