Bonjour,
Je suis débutant sur VB6 et j'ai réussi a avoir un script VB (ci dessous) qui réalise la conversion d'un tableau excel , mais je ne l'ai pas completement compris:

------------------------------------------------------------­---------------------------------------------

Option Explicit
Private TabFichier As Variant
Private TabCritere As Variant

Public Sub RemplirTabCritere()

End Sub

Public Sub ImporterXLS()
Dim TabFichier As Variant
Dim Xl As Excel.Application
Dim i As Integer
Dim j As Integer
Dim FinFichier As Boolean
i = 0
j = 1
FinFichier = False

Set Xl = New Excel.Application
Xl.Workbooks.Open App.Path & "\Liste.xls"
Xl.Sheets.Select 1

While FinFichier = False

If j = 1 Then
ReDim TabFichier(21, 0)
Else
ReDim Preserve TabFichier(21, i + 1)
End If

i = UBound(TabFichier, 2)
TabFichier(0, i) = Xl.Range("A" & (j + 1)).Value
TabFichier(1, i) = Xl.Range("B" & (j + 1)).Value
TabFichier(2, i) = Trim(Xl.Range("C" & (j + 1)).Value)
TabFichier(3, i) = CDate(Xl.Range("D" & (j + 1)).Value)
TabFichier(4, i) = CDbl(Xl.Range("E" & (j + 1)).Value)
TabFichier(5, i) = CDbl(Xl.Range("F" & (j + 1)).Value)
TabFichier(6, i) = CDbl(Xl.Range("G" & (j + 1)).Value)
TabFichier(7, i) = CDbl(Xl.Range("H" & (j + 1)).Value)

j = j + 1
If Xl.Range("A" & (j + 1)) = "" And Xl.Range("B" & (j + 1)) = "" And _
Xl.Range("C" & (j + 1)) = "" And Xl.Range("D" & (j + 1)) = "" And _
Xl.Range("E" & (j + 1)) = "" And Xl.Range("F" & (j + 1)) = "" And _
Xl.Range("G" & (j + 1)) = "" And Xl.Range("H" & (j + 1)) = "" Then
FinFichier = True
End If

Wend

Xl.Quit
Set Xl = Nothing

End Sub


Private Sub Command1_Click()
ImporterXLS
End Sub

-----------------------------------------------------------------------------------------------------------------

Si vous pouvez faire des commentaires et m'expliquez chaque étape a quoi elle sert ca serait vraiment gentille.
(dans cet expemple la table excel contient 8 champ A,B,C,D,E,F,G,H)
MERCI d'avance.

Configuration: Windows XP
Firefox 3.0.11