Extraction des données d'une listbox multi colonnes
Le newbie
Messages postés200Date d'inscriptionmardi 17 octobre 2006StatutMembreDernière intervention24 mars 2012
-
13 déc. 2006 à 16:57
cs_fauve
Messages postés661Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 mars 2011
-
20 déc. 2006 à 14:23
Salut,
Je souhaiterait savoir comment faire l'extraction des données d'une listbox multi-colonnes vers un fichier texte.
Pour la gestion de fichier tout va bien mais c'est l'extraction qui pêchent.
Si quelqu'un peut m'aider merci.
cs_fauve
Messages postés661Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 mars 20118 20 déc. 2006 à 14:23
Salut,
Transmettre une
listbox mutli-colonnes vers un fichier texte n'est pas très astucieux
car il faudra réaliser des tabulations pour pouvoir aligner chacun de
tes éléments contenus dans la listbox. Ce que je te conseille c'est
plutôt de créer un fichier excel puis de stocker tout le contenu de ta
listbox dedans. Personnellement, c'est ce que j'ai fait.
PS : le code est rédigé pour VB 2005
J'ai utilisé Microsoft Visual Basic 2005 Express Edition
Voici le code pour stocker tout le contenu de ta listbox dans un fichier excel :
Dim S1, ErrStr As String
Dim FNxls As String
Dim iCol As Integer
Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
S1 = Application.StartupPath ' Retourne le chemin d'accès de l'application
If Mid(S1, Len(S1) - 1) <> "" Then S1 = S1 & ""
FNxls = S1 &
"Excel.xls" ' Définit l'endroit où va être enregistrer le
fichier ici dans le répertoire où se trouve ton application
' Creer le fichier Excel
oXL = CreateObject("Excel.Application")
oBook = oXL.Workbooks.Add
oSheet = oBook.Worksheets(1)
With oSheet
'entrer les noms de colonnes
.Cells(1, 1) =
"A" '
Mets le mot "A" dans la 1° ligne et 1° colonne
.Cells(1, 2) = "B" ' Mets le
mot "B" dans la 1° ligne et 2° colonne
.Cells(1, 3) = "C" ' Mets le mot "C" dans la 1° ligne
et 3° colonne
' . Cells( n° ligne, n° colonne ) = Variable de type string
' Boucle ajoutant tous les éléments contenus dans la ListBox dans le fichier excel