Discussion :

[kinganasius]

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 ! ma question et comment faire pour que mon document word reste intacte aprés toute génération?
et merci

[jab]

Ben en ne le sauvant pas.

[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

[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.

[kinganasius]

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

Code :

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

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

[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.

[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

[DontShootMe]

Bonjour,


Essaye avec ça :

Code :

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

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 !

[DontShootMe]

Et pourquoi tu fais cela :

Code :

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

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

?

[jab]

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

Désolé j'étais à coté de mes pompes. Je voulai écrire la méthode Close prend des paramêtres. Exactement comme la dit DontShootMe

[kinganasius]

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