Discussion :

[cyrux]

Salut les amis !!
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 :

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

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

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

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

[cyrux]

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

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

[Sankasssss]

donc voici toute la fonction :

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
            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 :

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
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 :

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

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 :

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

docum.Content.InsertAfter(vbCrLf)

tu peux aussi faire une sélection :

Code :

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

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

sur laquelle tu appliqueras des styles...

Code :

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

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

Bien à toi

[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

[cyrux]

MERCI MERCI !!!!
Je crois que je ne peut pas en dire plus !!!!

[Sankasssss]

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

[cyrux]

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 :

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

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 ??

[cyrux]

Rectification, j'ai résolu mon problème de déclaration de variable :
je dois mettre :

Code :

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

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 :

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

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!

[Sankasssss]

Ouille,
Je pense que tu es débutant...

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 :

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

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

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 :

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

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

[xzéna]

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 :

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

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 :

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

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

[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