76cacash
Messages postés22Date d'inscriptionmercredi 21 juin 2006StatutMembreDernière intervention24 août 2006
-
24 août 2006 à 11:08
76cacash
Messages postés22Date d'inscriptionmercredi 21 juin 2006StatutMembreDernière intervention24 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
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 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
jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 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
Julien237
Messages postés883Date d'inscriptionvendredi 3 novembre 2000StatutMembreDernière intervention 3 mars 20097 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")