ListBox & Exel

Signaler
Messages postés
18
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
5 décembre 2006
-
Messages postés
18
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
5 décembre 2006
-
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

Messages postés
56
Date d'inscription
vendredi 30 mars 2001
Statut
Membre
Dernière intervention
7 septembre 2011
4
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
Messages postés
18
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
5 décembre 2006

MERCI
Je vais essayer avec un Ctrl DATA ( datasource et datafield ).
0
Messages postés
18
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
5 décembre 2006

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