Dim objXLApp Comme Excel.ApplicationDim intLoopCounter As Integer
Réglez objXLApp = New Excel.Application
Avec objXLApp
.Workbooks.Open "C: File.xls"
.Classeurs (1) .Worksheets (1) .Select
Pour intLoopCounter = 1 Pour CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row)
List1.AddItem .Range ("UN" & intLoopCounter)
IntLoopCounter Suivant
.Classeurs (1) Faux .Close
.Quitter
End With
Réglez objXLApp = Nothing