enregistrer une listview dans un document wordRésolu

Question

salut tout le monde!

je voudrai enregistrer des donn&#233;es d'une listview dans un tableau sous MS Word, si c'est possible comment faire ?
et merci d'avance.


"The only way to learn is be aware and hold on tight."

nhervagault · Accepted Answer

Salut

Pour lister une listeview il faut la parcourir.

Pour faire un tableau dans word 
il faut utiliser VB avec l'object word application

Voici un exemple de parcours de tableau word

Dim iBoucle As Integer, jBoucle As Integer
If Selection.Information(wdWithInTable) Then
For jBoucle = 1 To Selection.Tables(1).Columns.Count
For iBoucle = 1 To Selection.Tables(1).Rows.Count
If Selection.Tables(1).Cell(iBoucle,
jBoucle).Range.Text =
Chr(13) & Chr(7) Then
Selection.Tables(1).Cell(iBoucle, jBoucle).Select
MsgBox "Cellule (" & CStr(iBoucle) & " , " & _
    CStr(jBoucle) & _
    ") vide.", vbOK, "Balayage de tableau"
Else
End If
Next iBoucle
Next jBoucle
End If
End Sub

Pour ajouter un tableau

  ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Grille du tableau" Then
            .Style = "Grille du tableau"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With

Made with macro enregistreur ;-)

Voila
Bonne programmation

DeathVB · Answer

salut !

merci pour le coup de main 


le code &#231;a marche bien , mais le seul probleme c'est que le Word doit &#234;tre ouvert au moment de l'execution. Il n y a pas un moyen de cr&#233;er le tableau sans ouvrir le Word (c'est &#224; dire cr&#233;er un fichier doc sans passer par Word ) ?

et merci encore!



"The only way to learn is be aware and hold on tight."

nhervagault · Answer

Non il y a pas moyen. (avant OFFICE 2003)

La solution est de faire du RTF ;-)

http://www.aspfr.com/code.aspx?ID=16630

Avec OFFICE 2003 (je crois)ou 12(sur) , tu peux ecrire le document en XML.
avec wordML
http://blogs.msdn.com/brian_jones/archive/category/10251.aspx

Bonne programmation

DeathVB · Answer

thx amigo 


"The only way to learn is be aware and hold on tight."

Enregistrer une listview dans un document word

4 réponses

Discussions similaires