1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Listbox

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

Réponse 1 / 7
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
 7
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
Réponse 2 / 7
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 58
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
Réponse 3 / 7
Messages postés
22
Date d'inscription
mercredi 21 juin 2006
Statut
Membre
Dernière intervention
24 août 2006
ta bouvle pour la listbox elle ne fonctionne pas en vb.net car c'est le langague que j'utilise
Réponse 4 / 7
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 58
Salut,


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






@+, Julien
Réponse 5 / 7
Messages postés
22
Date d'inscription
mercredi 21 juin 2006
Statut
Membre
Dernière intervention
24 août 2006
merci pour ton aide.
et par hazard serai tu comment on faire pour ouvrir un fivhier word?
Réponse 6 / 7
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
 7
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.
Réponse 7 / 7
Messages postés
22
Date d'inscription
mercredi 21 juin 2006
Statut
Membre
Dernière intervention
24 août 2006
oui mais moi je voudrais ouvrir le file open?
Répondre Posez votre question