Listbox

Résolu
76cacash Messages postés 22 Date d'inscription mercredi 21 juin 2006 Statut Membre Dernière intervention 24 août 2006 - 24 août 2006 à 11:08
76cacash Messages postés 22 Date d'inscription mercredi 21 juin 2006 Statut Membre Dernière intervention 24 août 2006 - 24 août 2006 à 16:23
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

7 réponses

Julien237 Messages postés 883 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 3 mars 2009 7
24 août 2006 à 13:08
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
3
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 août 2006 à 11:53
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 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+, Julien
0
76cacash Messages postés 22 Date d'inscription mercredi 21 juin 2006 Statut Membre Dernière intervention 24 août 2006
24 août 2006 à 11:57
ta bouvle pour la listbox elle ne fonctionne pas en vb.net car c'est le langague que j'utilise
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 août 2006 à 11:59
Salut,


C'est juste pour l'idée alors. adapte le a tes besoin.






@+, Julien
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
76cacash Messages postés 22 Date d'inscription mercredi 21 juin 2006 Statut Membre Dernière intervention 24 août 2006
24 août 2006 à 13:37
merci pour ton aide.
et par hazard serai tu comment on faire pour ouvrir un fivhier word?
0
Julien237 Messages postés 883 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 3 mars 2009 7
24 août 2006 à 14:24
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.
0
76cacash Messages postés 22 Date d'inscription mercredi 21 juin 2006 Statut Membre Dernière intervention 24 août 2006
24 août 2006 à 16:23
oui mais moi je voudrais ouvrir le file open?
0
Rejoignez-nous