Discussion :

[belocom]

Bonjour à toutes et à tous
Un grand merci à celles et à ceux qui pourront m'aider, ce sujet semble trivial, mais je rame, je rame !
J'essaie de répondre à Lou87 : Copier une Listbox dans un document Word à partir d'une appli VB.NET
J'ai cherché partout (surement mal) et je ne trouve pas d'exemple. j'en trouve bien un en C#, mais je ne sais pas le traduire en VB, et je ne peux pas télécharger le PDF qui donnerais la solution !!! Bad luck.
Le code suivant :

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
  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 = "Le_i"
        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
End Sub

Provoque l'erreur suivante quand je tente de coller dans le document Word, ce que j'ai mis dans le presse papier :

Structure FORMATETC non valide (Exception from HRESULT: 0x80040064 (DV_E_FORMATETC))

Première question : Comment corriger?
Deuxieme question : Comment piloter le collage à partir de mon appli VB ?
Troisième question : Comment ecrire directement dans le document word, sans passer par un copier coller ?
Quatrième ( et dernière question) : Comment activer une macro VBA du susdit document Word.
Encore merci pour votre aide

[belocom]

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 :

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

Une bonne 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

[Gdal]

Une petite balise fera l'affaire

[belocom]

Une petite balise fera l'affaire

En effet, autant pour moi !