[vb.net] Comment mettre le contenu d'un listbox dans un fichier word ?

Version imprimable

14/03/2007, 11h40
lou87

[vb.net] Comment mettre le contenu d'un listbox dans un fichier word ?

Bonjour !

Je ne sais pas si c'est évident ou pas, mais j'ai rien trouvé dessus...

En faite j'ai mon formulaire windows avec des listbox, et j'aimerais que quand je clic sur un bouton il me prenne le contenu d'un listbox précis et le mette à un endroit précis d'une feuille word.

J'espère avoir été assez clair. :oops:

Merci d'avance pour votre aide. :)
14/03/2007, 14h23
matrix_ceg

Recherche sur pilotage word vb.net ça devrait être facile à trouver.
15/03/2007, 09h28
lou87

Merci pour ton aide. ;)

Maintenant je sais que je dois utiliser un Bookmark, mais je ne sais pas comment l'utiliser...

Quelqu'un pourrait me donner un exemple s'il vous plait ?

(Exemple : Déclaration, mise en place du Bookmark, etc...)
15/03/2007, 10h04
matrix_ceg

eu non un document

document.activewindow.selected...

bookmark c'est pour excel

si je me trompe pas biensure
05/04/2007, 10h59
lou87

J'ai trouvé quelque chose, mais il me permet seulement de m'ouvrir le fichier word et de me placer à la place d'un signet....

Mais bon déjà je n'y arrive pas...

Et je voudrais y insérer après mon signet le texte se trouvant dans mon listBox de mon formulaire vb.net....

Quelqu'un aurait pas une idée ?

Merci d'avance !

matrix_ceg : j'ai regardé ce que tu m'as dit de chercher mais il ne d'un qu'un exemple qui me semble incomplet... :(

http://morpheus.developpez.com/vsto2

Oune réponse

Bonjour,
Non sans mal, avec détermination et opiniatreté, j'ai trouvé en allant visiter les sites proposés par Gooooooooooogle en réponse à "pilotage word VB.net"
Pour écrire dans word, c'est élémentaire my dear Watson :

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
Imports System.Diagnostics
Imports System.Threading
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Sea Bird")
        ListBox1.Items.Add("Reliance")
        ListBox1.Items.Add("Diatome")
        ListBox1.Items.Add("Topyo")
        ListBox1.Items.Add("Vaguely Noble")
        ListBox1.Items.Add("Allez France")
        ListBox1.Items.Add("Levmoss")
        ListBox1.Items.Add("Gyr")
        ListBox1.Items.Add("Prince régent")
        ListBox1.Items.Add("Park Top")
        ListBox1.Items.Add("Nijinsky")
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim zone As String = ""
        Dim z As String = ""
        Dim i As Integer
        Dim signet As String = "Avant"
        For i = 0 To ListBox1.Items.Count - 1
            zone &= ListBox1.Items(i) & vbCrLf
        Next
        Dim wap As Word.Application
        wap = CType(CreateObject("word.application"), Word.Application)
        wap.Application.Visible = True
        wap.Application.Documents.Open(FileName:="C:\aide.doc", ReadOnly:=False)
        Dim mydoc As Word.Document
        mydoc = wap.ActiveDocument
        Clipboard.SetDataObject(zone)    ' Le contenu de la listbox dans le presse papier
        If mydoc.Bookmarks.Exists(signet) Then
            mydoc.Bookmarks(signet).Select()
            MsgBox("Trouve le " & signet & " !!!")
         End If
        With wap.Selection
            .TypeText(zone)
        End With
 
 
 
    End Sub
End Class

Mais achtung, l'insertion de zone s'effectue après le signet "Avant" !!!
Donc mettre deux signets l'un derrière l'autre, citer le 1er pour que l'insertion se fasse avant le deuxième !

Une adresse :
http://www.infini-.com/Sciences/Info...ord/index.html
Une autre, qui décline sur tout le sujet :
http://msdn2.microsoft.com/fr-fr/lib...cs(VS.80).aspx

Les adresses ont été trouvée par Gooooooooogle en cherchant ".typetext".
Pour paraphraser Coluche, pour apprendre VB.NET il faut connaître VB.NET

Bonne chance

12/04/2007, 10h23
lou87

Merci de ton aide.

Il ne faut pas me reprocher de ne pas avoir chercher... ! :evil:

Car j'ai cherché sous google.

Mais pas forcément au bon endroit....

Et msdn, parfois je comprend mais pour ce cas là j'y étais déjà aller voir, mais je n'avais rien compris... :roll:

Et je te remercie, car maintenant ça fonctionne.

P.S : je ne connais le vb.net pas depuis longtemps.....
13/04/2007, 00h54
belocom

Ni ironique, ni donneur de leçon

Ayant eu bien du mal à trouver par le coup de chance de chercher sur ".typetext" !!!!!
13/04/2007, 11h17
lou87

Oki ! ^^

Merci bien ;) :king:

Et désolée d'avoir mal interprêté. :oops: