Re : génération automatique de liste / nom word et vb.net

Version imprimable

Salut les amis !! :D
Je développe une application en vb.net et sql serveur.
Dans celle ci, j'ai une génération automatique de document je récupère les informations d'un client dans ma base et les envoi sur une page word déjà existante à des emplacements prévu grâce aux signets.
j'arrive à imprimer les données de plusieurs client, le problème c'est que ceux-ci s'ouvrent chacun sur une page différente alors que ce que je recherche est une liste des information. :?

voici mon code :
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 tout d'abord, je fais une requète pour récupérer les données qui m'interessent commande.CommandText = "SELECT nom_expert, prenom_expert, code_expert, code_postal_expert, ville_expert FROM expert " on enregistre le resultat de la requete dans le reader reader = commande.ExecuteReader on affiche les données dans les labels label_nom_expert.Text = reader.GetOrdinal("nom_expert") label_prenom_expert.Text = reader.GetOrdinal("prenom_expert") label_code_expert.Text = reader.GetOrdinal("code_expert") label_cp.Text = reader.GetOrdinal("code_postal_expert") label_ville.Text = reader.GetOrdinal("ville_expert") on ferme le reader reader.Close() Déclaration de la variable MonWord Dim MonWord AsObject Initialisation de la variable MonWord = CreateObject("Word.Application") Accepter que Word apparaisse MonWord.Visible = True Ouverture du fichier test.doc MonWord.Documents.Open("C:\...\document.doc") 'Positionnement dans le document sur les signets 'Saisie du contenu des textbox dans le document Word MonWord.ActiveDocument.Bookmarks("nom_expert").Select() MonWord.Selection.InsertAfter(label_nom_expert.Text) MonWord.ActiveDocument.Bookmarks("prenom_expert").Select() MonWord.Selection.InsertAfter(label_prenom_expert.Text) MonWord.ActiveDocument.Bookmarks("code_expert").Select() MonWord.Selection.InsertAfter(label_code_expert.Text) MonWord.ActiveDocument.Bookmarks("code_postal_expert").Select() MonWord.Selection.InsertAfter(label_cp.Text) MonWord.ActiveDocument.Bookmarks("ville_expert").Select() MonWord.Selection.InsertAfter(label_ville.Text) 'MonWord.ActiveDocument.Save() ' Sauvegarde du document 'MonWord.ActiveDocument.Printout() ' Lancement de l'impression 'MonWord.Quit() ' Ferme Word 'MonWord = Nothing ' Ferme Word
les signets sont nommés sur le document word...

par contre, comment faire pour que la page du document word affiche toute la liste

ex:

nom X prénom X code X code postal X ville X
nom Y prénom Y code Y code postal Y ville Y
nom Z prénom Z code Z code postal Z ville Z
nom A prénom A code A code postal A ville A
nom B prénom B code B code postal B ville B
nom C prénom C code C code postal C ville C

etc....

la logique voudrait qu'on répète les signets sur la page word... mais combien en mettre car on ne sait pas combien il y aura d'expert au total...

cette méthode fonctionne correctement lorsque je veux uniquement un expert...
de plus, ça fonctionne également quand il me met un expert par page...
mais moi, je veux la liste de tous les experts sur la même page...

merci d'avance...
c'est très important...

04/03/2009, 18h32
Sankasssss
Salut,
tu es vraiment obliger d'utiliser les signet???
pour ma part quand je génère du word d'une table quelconque je fais comme ca : (extrait direct d'un de mes programmes)
Code:

1 2 3 4 5 For i = 0 To dt.Tables("rechnum").Rows.Count - 1 nbdos = i + 1 docum.Content.InsertAfter(nbdos.ToString +...+ vbCrLf) Next i
c'est plus simple sans signet non???
de cette manière tu remplis du nombre de ligne que tu veux...
04/03/2009, 19h47
cyrux

Oué ! si j'ai utilisé les signets c'est parce que je n'ai pas trouvé comment faire autrement !!:mouarf:

Pourrais -tu s'il te plait détailler un peu ton code dire que je comprenne ??
Merci beaucoup Sankasssss !!

donc voici toute la fonction :

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
            Dim appli As New Microsoft.Office.Interop.Word.Application
            Dim docum As Microsoft.Office.Interop.Word.Document
            docum = appli.Documents.Add
 
 
            Dim indiceDeb, indiceFin As Integer
            Dim indiceDeb2, indiceFin2 As Integer
            Dim dRange As Microsoft.Office.Interop.Word.Range
 
 
            dRange = docum.Range
 
            indiceDeb = docum.Content.Text.Length
            docum.Content.InsertAfter(NomListe.ToString & vbCrLf & vbCrLf)
            indiceFin = docum.Content.Text.Length
            appli.Selection.SetRange(indiceDeb, indiceFin - 2)
            appli.Selection.Font.Bold = True
            appli.Selection.Font.Size = 12
            appli.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
            appli.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle
            indiceDeb = docum.Content.Text.Length - 2
            '----
            Dim i As Integer
            Dim nbdos As Integer
 
            For i = 0 To dt.Tables("rechnum").Rows.Count - 1
                nbdos = i + 1
                docum.Content.InsertAfter(nbdos.ToString + ") " + dt.Tables("rechnum").Rows(i)(1).ToString() + dt.Tables("rechnum").Rows(i)(2).ToString() + " " + dt.Tables("rechnum").Rows(i)(3).ToString() + "   " + dt.Tables("rechnum").Rows(i)(4).ToString() & vbCrLf)
 
            Next i
 
            appli.Selection.SetRange(indiceDeb, indiceFin - 2)
            appli.Selection.Font.Size = 11
            appli.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle
            indiceDeb = docum.Content.Text.Length
            indiceFin = docum.Content.Text.Length
            'MsgBox(NomListe)
            Dim fs As IO.Directory
            If Not fs.Exists("c:\Statistique\") Then
                fs.CreateDirectory("c:\Statistique\")
            End If
            docum.SaveAs("c:\Statistique\" + NomListe + ".doc")
            docum.Close()
            appli.Quit()

et une partie d'une autre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
docum.Content.InsertAfter(vbCrLf)
        docum.Content.InsertAfter("Répartition des " + (Nbrdos1 - Nbrdos12).ToString + " dossiers " & vbCrLf)
        indiceFin = docum.Content.Text.Length
        appli.Selection.SetRange(indiceDeb, indiceFin - 2)
        appli.Selection.Font.Size = 12
        appli.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle
        indiceDeb = docum.Content.Text.Length
        docum.Content.InsertAfter(vbCrLf)
        docum.Content.InsertAfter("3) 22-Retraits : " + NbrdosRetrait.ToString & vbCrLf)
        docum.Content.InsertAfter("4) 23-Suspends : " + NbrdosSuspends.ToString & vbCrLf)
        docum.Content.InsertAfter("5) Arrêts en fin d'aide : " + Nbaidefin.ToString & vbCrLf)
        docum.Content.InsertAfter("6) Arrêts en fin d'aide suivi d'un refus d'une nouvelle aide : " + Nbarretfinsuivi.ToString & vbCrLf)
        indiceFin = docum.Content.Text.Length
        appli.Selection.SetRange(indiceDeb, indiceFin - 2)
        appli.Selection.Font.Size = 12
        indiceDeb = docum.Content.Text.Length

Cette ligne :

Code:

docum.Content.InsertAfter

insère du texte après le dernier caractère,
Si tu veux passer à la ligne il suffit d'insèré la constante vb : vbCrLf
comme ceci :

Code:

docum.Content.InsertAfter(vbCrLf)

tu peux aussi faire une sélection :

Code:

appli.Selection.SetRange(indiceDeb, indiceFin - 2)

sur laquelle tu appliqueras des styles...

Code:

1
2
appli.Selection.Font.Size = 12
appli.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle

Bien à toi

04/03/2009, 20h44
Sankasssss

Je te conseil d'aller voir la rubrique de l'aide msdn qui traite de la chose, tu apprendra beaucoup de chose intéressante pour personnaliser ton document :
http://msdn.microsoft.com/fr-fr/libr...we(VS.80).aspx
:pc:
04/03/2009, 21h01
cyrux

MERCI !!!!

MERCI MERCI !!!!:yaisse2::merci:
Je crois que je ne peut pas en dire plus !!!! :D
04/03/2009, 21h03
Sankasssss

de rien ;)
pense à marquer le sujet comme "résolu"
Bonne soirée et bon développement

petit problème ...

:salut:
J'ai un petit soucis avec une partie de ton code. je m'explique :

Dès la déclaration des variable, il me met l'erreur Type Microsoft.Office.Interop.Word.document is not defined et Type Microsoft.Office.Interop.Word.Range is not defined etc....
pourtant, dans mes references, j'ai bien Interop.Office et Interop.word!!!!!

voici la partie de code concernée :
Code:

1 2 3 4 5 6 7 8 9 Dim appli As New Microsoft.Office.Interop.Word.Application Dim docum As Microsoft.Office.Interop.Word.Document docum = appli.Documents.Add Dim indiceDeb, indiceFin As Integer Dim indiceDeb2, indiceFin2 As Integer Dim dRange As Microsoft.Office.Interop.Word.Range
Aurais tu une idée ??
;)

05/03/2009, 16h20
cyrux
Rectification, j'ai résolu mon problème de déclaration de variable :
je dois mettre :
Code:

1 2 Dim appli As New Word.Application Dim docum As Word.Document docum = appli.Documents.Add
par contre, j'aimerai savoir à quoi correspond "NomListe"... c'est une listebox contenant toutes les données?
Code:

1 2 docum.Content.InsertAfter(NomListe.ToString & vbCrLf & vbCrLf)
ensuite, il m'affiche une erreur pour dt.Tables("rechnum") : name dt is not declared! mais a quoi correspond dt?

de plus, j'ai une erreur pour fs.exists("c:\Statistique\") Then fs.CreateDirectory("c:\Statistique\")
pourtant j'ai créé le document Statistique!

l'erreur est: access of shared member, constant member, enum member or nested type through an instance; qualifying experssion will not be evaluated!

:?

Ouille, 8O
Je pense que tu es débutant... :P

donc :
NomList est juste un bête string, les données sont contenue dans un dataset que j'ai nommé dt que j'énumère ligne par ligne dans un for.
Code:

1 2 3 4 5 For i = 0 To dt.Tables("rechnum").Rows.Count - 1 nbdos = i + 1 docum.Content.InsertAfter(nbdos.ToString + ") " + dt.Tables("rechnum").Rows(i)(1).ToString() + dt.Tables("rechnum").Rows(i)(2).ToString() + " " + dt.Tables("rechnum").Rows(i)(3).ToString() + " " + dt.Tables("rechnum").Rows(i)(4).ToString() & vbCrLf) Next i
L'avantage des dataset et datattable qu'il contienne est qu'il se remplisse très facilement à partir d'une base de donnée et permette une manipulation facile des données (une fois que tu connais un peu ADO.net), la lecture et l'écriture de beaucoup de donnée s'en retrouve simplifié.

Citation:

de plus, j'ai une erreur pour fs.exists("c:\Statistique\") Then fs.CreateDirectory("c:\Statistique\")
pourtant j'ai créé le document Statistique!

tu as oublier d'importer System.IO

Code:

imports System.IO

qui permet (entre autre) de gèré les répertoires

N'hésite pas à parcourir l'aide msdn, je sais que c'est chiant et qu'il faut ce faire à son interface mais on apprend vraiment beaucoup d'elle, faut en profiter, en plus elle est en français :D

salut,
pourtant j'ai tenté votre code,mais ça marche pas pas!!les declarations ne sont pas definis pas l'application!!
e, ce bloc:

Code:

1
2
3
4
5
6
7
8
Dim appli As New Microsoft.Office.Interop.Word.Application
        Dim docum As Microsoft.Office.Interop.Word.Document
        docum = appli.Documents.Add
 
 
        Dim indiceDeb, indiceFin As Integer
        Dim indiceDeb2, indiceFin2 As Integer
        Dim dRange As Microsoft.Office.Interop.Word.Range

aussi là:

Code:

1
2
 appli.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
        appli.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineSingle

merci pour l'explication,je suis debutante en ADO.NET

09/03/2009, 21h43
Sankasssss

Bonsoir,
Fait un clic droit sur référence =>ajouter une référence, puis dans les com tu sélectionnes Microsoft Excel 12.0 Object Library