Utilisation de VB pour lister des données Excel dans une Combo

Question

Bonjour je suis débutante en VB6 et je voudrais réaliser une appli qui soit en rapport avec un fichier Excel.

Mon fichier Excel existe  déjà. Je voudrais pouvoir lister les valeurs d'une colonne à l'aide d'une combo box mais je ne sais pas du tout comment m'y prendre. Même pour ouvrir le fichier Excel à proprement dit. J'ai beau lire les différents messages laissés sur le forum je n'y arrive toujours pas.

Quelqu'un pourrait-t-il me donner un petit coup de main svp car je suis totalement perdue  

Merci d'avance

Lyse

jrivet · Answer

Salut,
Essaie ceci 

            il faut cocher la référence Microsoft Excel 9.0 Object Library (9.0 ou equivalent)
pour ajouter une référence Menu Projet => Références 

'Objet excel 
Dim XlApp As New Excel.Application 
'Objet Classeur
Dim XlWorkBook As Excel.Workbook 
Dim XlCell As Excel.Range
XlApp.Visible = True
'Ouvre un classeur neuf
Set XlWorkBook = XlApp.Workbooks.Open("C:\Test.Xls")
'[...les mofid => Objets Worksheets... Ranges]
'récupère les infos de la colonne 1 De la feuille 1

Dim i as integer
XlCell = XlWorkBook.WorkSheets(1).Range("A1")

While Not IsEmpty(XlCell)
  NomCombo.AddItem(XlCell.Text) 'NomCombo.AddItem(XlCell.Value)
  i = i + 1
  XlCell = XlWorkBook.WorkSheets(1).Range("A" & i)
Wend

'Sauveagrde le classeur
Call XlWorkBook.Close(True) 
'Quitte l'application
Call XlApp.Quit 
'Destruction des objets
Set XlApp = Nothing 
Set XlWorkBook = Nothing, ----
(Coloration syntaxique automatique par Kenji)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Après relecture il manque une ligne

Dim i as integer
XlCell =  XlWorkBook.WorkSheets(1).Range("A1")
 i = 1 

While Not IsEmpty(XlCell)
  NomCombo.AddItem(XlCell.Text) 'NomCombo.AddItem(XlCell.Value)
  i  = i + 1
  XlCell = XlWorkBook.WorkSheets(1).Range("A" & i)
Wend

@+: Ju£i?n
Pensez: Réponse acceptée

Utilisation de VB pour lister des données Excel dans une Combo

2 réponses

Votre réponse

Discussions similaires