ListBox & Exel

cs_Morpho Messages postés 18 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 5 décembre 2006 - 27 sept. 2002 à 14:49
cs_Morpho Messages postés 18 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 5 décembre 2006 - 30 sept. 2002 à 15:16
Je désespère de remplir une ListBox avec la colonne d'un fichier EXEL sans ouvrir EXEL. Si quelqu'un peut me fournir un exemple !? :)

3 réponses

Diegoch Messages postés 56 Date d'inscription vendredi 30 mars 2001 Statut Membre Dernière intervention 7 septembre 2011 4
27 sept. 2002 à 15:19
dim XL as object
set XL = createobject("excel.application")

Set CelluleCourante = XL.Worksheets(1).Range("A1")

Do While Not IsEmpty(CelluleCourante)
Form1.Listbox.AddItem CelluleCourante
Set CelluleCourante = CelluleCourante.Offset(1, 0)
Loop

'dans cet exemple, XL a été defini comme objet et application excel.
'je suppose que ta colonne de remplissage se trouve sur la feuille 1 et commence a la cellule A1
'le reste ce fait tout seul.....(jusqu'a la premiere cellule vide).
' rajoute XL.Application.Visible = True en dessous du set si tu veux que la feuille soit visible.
0
cs_Morpho Messages postés 18 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 5 décembre 2006
30 sept. 2002 à 09:22
MERCI
Je vais essayer avec un Ctrl DATA ( datasource et datafield ).
0
cs_Morpho Messages postés 18 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 5 décembre 2006
30 sept. 2002 à 15:16
j'ai défini un ctrl DATA :
- connect : exel"x"
- databasename : "nom du fichier"
- recourdsource : feuil1

... un label1 :
- datasource : data1
- datafield : le nom de la colonne de données ( contenu de la premiere cellule )

Private Sub Form_Activate()
Nbre_enregistrement = data1.Recordset.RecordCount
data1.Recordset.MoveFirst
For i = 1 To (Nbre_enregistrement - 1)
data1.Recordset.MoveNext
List1.AddItem (Label1)
Next i
End Sub

Avantage :
- on peut inserer une colonne le prg pointe tjs sur les enregistrements souhaités.

Mais peut-on faire la même chose sans passer par le label1....

:)
0
Rejoignez-nous