CGSI3
Messages postés416Date d'inscriptionvendredi 22 février 2008StatutMembreDernière intervention 7 janvier 20181 9 oct. 2010 à 19:18
Salut etniqs,
J'ai un vieux code vb6 pour importer a partir d'une feuille excel dans un tableau dynamique (2D) puis dans un flexgrid
Public Sub Import_Excel() 'Savoir si un fichier existe
On Error Resume Next
Dim q As Workbook, mem As Worksheets, fg As Range
Dim tt(), P As Long, pg() As String
b = OuvrirUnFichier("Ouvrir", 1, "Fichier Excel", "XLS", "c:")
Set q = Workbooks.Open(b)
P = q.Worksheets.Count
ReDim pg(1 To P) As String
For cpt = 1 To P
S = S + "[" & Str(cpt) & " ]: " & Worksheets(cpt).name & vbCrLf
Next cpt
o = Val(InputBox(S, "Choisissez la feuille"))
m = InputBox("Zone", "Entrez la Zone ex: B10")
Set fg = q.Worksheets(o).Range(m).CurrentRegion
tt = fg.Value
'initialise un MSflexgrid depuis un tableau 2D dynamique (tt)
Call MajMatrix(tt, GestionTab.MSFlexGrid1)
End Sub
La fonction OuvrirUnFichier te renvoi un chemin de fichier dans b
pour remplacer MajMatrix et plutot initialiser un datagridview, je te renvoi a une réponse récente: