export listbox (vba)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : export listbox (vba)

lhonolulu

Bonjour tout le monde,

le problème du jour est : je désire exporter le contenu d'une listbox soit dans excel soit dans un fichier texte style csv (le code doit quasi identique je suppose).
Si ce fichier d'export se crée automatiquement c'est encore mieu (c'est à dire si je n'ai pas à céer le fichier excel ou csv avant).

Je n'ai pas réussi a trouver de réponse me correspondant sur le forum. Si vous savez où il y a une source ou si vous connaissez le code n'hésitez plus une seconde ! lol

Merci et bonne journée ou soirée ca dépend des cas

Publicité

lhonolulu

pour l'instant j'en suis dans ma réflexion à :
For Each "ligne de ma listbox" In Listbox
écrire le contenu de ma ligne dans une cellule excel
Next "ligne de ma listbox"

De cette facon chaque ligne de ma listbox sera écrite dn mon fichier.

Le problème je ne sais pas comment s'appelle la ligne de ma listbox...
et je ne sais pas comment dire d'écrire dans une cellule différente le contenu de chaque ligne de ma listbox : ca doit etre du genre range("$a$"<---indice colonne, i<---indice ligne)...(je ne sais pas ce que c'est le "..."lol !)

axl63800

pour le contenu de la listbox :
For i=0 to liste.listcount-1
celule = liste.itemdata(i)
next

lhonolulu

je suis sous vba (excel 2000) et liste.itemdata(i) il n'aime pas trop... il me dit membre de méthode ou données introuvable.
Ou alors dois-je faire qqc avant...

axl63800

euhhh non essaie row(i) mais je suis pas sur faut chercher un peu dans les proposition qu'il doit te faire quand tu met le point

lhonolulu

J'ai esseyé une nouvelle méthode. ci dessous :

Code :

Private Sub cmdListEXCEL_Click()
Dim Appli As New Application
Dim LigneExcel As Integer
Dim compt As Integer
'Rendre visible EXCEL
Appli.Visible = True
'Créer un nouveau classeur EXCEL initialisé à la ligne 1
Appli.Workbooks.Add.Activate
LigneExcel = 1
'Inscrire le contenu d'une listbox dans la feuille 1 d'un classeur EXCEL
For compt = 0 To List1.ListCount - 1
' Affecter les données de la listbox dans les cellules de la feuille
With ActiveWorkbook.Worksheets("Feuil1" ).Cells(LigneExcel, 1) = List1.List(compt)
LigneExcel = LigneExcel + 1
End With
Next compt
End Sub

la listbox peut contenir soit du texte soit des nombres.
Mais j'obtients l'erreur : erreur d'exécution 9. L'indice n'appartient pas à la sélection.
Pourquoi ? ai je mal créer mon fichier ?
merci

lhonolulu

pour précision l'erreur survient à la ligne
with activeworkbook.worksheets...

lhonolulu

si le fichier existe j'arrive sans problème :

Code :

For i = 0 To List1.ListCount - 1
Sheets("feuil1" ).Cells(i + 1, 1) = List1.List(i)
Next i

le problème c'est qd je crée un nv fichier alor rien à fair ca marche pas...

lhonolulu

en fait si je crée un fichier, vb ne veut rien savoir il me met les valeur de ma listebox dans le fichier ki contient ma macro...snif

cytut

ce ne serait pas que qd tu crée un nv fichier, celui-ci devient le fichier actif donc Pb de ref.. Ce n'est pas la feuille active qui contient la list1.

Cyrille

FORUM HardWare.fr

Programmation

VB/VBA/VBS

export listbox (vba)

Sujets relatifs
ListBox et Image	Export toute feuille xsl vers csv ...
ListBox : scrollbar horizontale automatique ?	Connaitre les éléments d'une ListBox ?
[sh] export de variable	élément d'une listbox
[VB] ListBox sans ascenseur ?	[Borland] Récupérer une chaine de char contenue dans une listbox
[oracle 8i] export des tables DDL + données	[Postgres] pb d'export->import
Plus de sujets relatifs à : export listbox (vba)

Page générée en 0.071 secondes