listboxRésolu

Question

Salut a tous,

voila je voudrai récupérer tous le contenu d'une listbox afin de l'afficher dans une page word?
Si quelqu'un a une solution
merci

Julien237 · Accepted Answer

Voici le code en .Net :
(Tellement de changements !!! :p)

Sub EcrireListbox()
        'Application Word
        Dim WApp As New Word.Application
        'Variable document Word
        Dim WDoc As Word.Document
        'Ouverture du document a remplir
        WDoc = WApp.Documents.Open("C:\1.Doc")

        'Boucle d'écriture du contenu de la liste dans le document
        Dim i As Integer
        For i = 1 To List1.ListCount - 1
            WApp.Selection.TypeText(list1.List(i) & vbCrLf)
        Next

        'Fermeture du document avec enregistrement des donnée
        Call WDoc.Close(True)
        'Fermeture de l'appli Word
        Call WApp.Quit()

        'Destruction des objets
        WDoc = Nothing
        WApp = Nothing
    End Sub

jrivet · Answer

Salut, Le code suivant te permet depuis VB6 D'ouvrir le Document "C:\1.Doc" Et d'y ecrire au debut le contenu de la listebox Liste1 Pour utiliser le code tu dois mettre en référence a ton projet Microsoft Word 9.0 Object Library (9.0 ou equivalent) 'Application Word Dim WApp As New Word.Application 'Variable document Word Dim WDoc As Word.Document 'Ouverture du document a remplir Set WDoc = WApp.Documents.Open("C:\1.Doc") 'Boucle d'écriture du contenu de la liste dans le document For i = 1 To List1.ListCount - 1 Selection.TypeText (List1.List(i) & vbCrLf) Next 'Fermeture du document avec enregistrement des donnée Call WDoc.Close(True) 'Fermeture de l'appli Word Call WApp.Quit 'Destruction des objets Set WDoc = Nothing Set WApp = Nothing Coloration syntaxique automatique [AFCK] @+, Julien

76cacash · Answer

ta bouvle pour la listbox elle ne fonctionne pas en vb.net car c'est le langague que j'utilise

jrivet · Answer

Salut,


C'est juste pour l'idée alors. adapte le a tes besoin.






@+, Julien

76cacash · Answer

merci pour ton aide.
et par hazard serai tu comment on faire pour ouvrir un fivhier word?

Julien237 · Answer

Eh bien dans le code qu'on t'a donné, tu crois qu'il fait quoi lorsqu'il exécute 
        
'Application Word
Dim WApp As New Word.Application
'Variable document Word
Dim WDoc As Word.Document
'Ouverture du document a remplir
WDoc = WApp.Documents.Open("C:\1.Doc")

?

Julien.

76cacash · Answer

oui mais moi je voudrais ouvrir le file open?

Listbox

7 réponses

Votre réponse