Diegoch
Messages postés56Date d'inscriptionvendredi 30 mars 2001StatutMembreDernière intervention 7 septembre 20116 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.
cs_Morpho
Messages postés18Date d'inscriptionvendredi 27 septembre 2002StatutMembreDerniè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....