Importer les valeurs d'une matrice excel dans une matrice VB.NETRésolu

Question

Bonjour, 

Je souhaite importer une matrice depuis un fichier excel vers une matrice creee sous VB.Net.

Mon code est le suivant :

Sub dat1()
        FLName = "DA1"
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim i, j As Integer

        xlApp = New Excel.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Open("E:\PITT\VRPTW\bin\c1.xls")
        xlWorkSheet = xlWorkBook.Worksheets("c101")

        For i = 0 To Nd1 
            For j = 0 To 6
                DT_1(i, j) = xlWorkSheet.Cells(i + 1, j + 1)
            Next j
        Next i

etc...

Toutefois, j'ai l'erreur suivante qui apparait :
"An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll
Additional information: Cast from type 'Range' to type 'Integer' is not valid."

Je crois comprendre que c'est parce que DT_1 est defini ailleurs comme etant un integer --> Dim DT_1(100, 6) As Integer 
alors que xlWorkSheet.Cells(i + 1, j + 1) est de type range.

Mais je n'arrive pas a trouver la correction... Comment faire pour copier les valeurs de mon tableau Excel dans ma matrice?

Merci d'avance.

tpoinsot · Accepted Answer

Bonjour,
il faut prendre le .value :
DT_1(i, j) = xlWorkSheet.Cells(i + 1, j + 1).Value

thip

WORMADE · Answer

Magique, ca marche!

Merci mille fois!

ucfoutu · Answer

Bonjour,

Es-tu vraiment certain d'avoir à dimensionner ton tableau et à utiliser une boucle ?

Ne pourrais-tu récupérer directement le tableau qu'Execel sait parfaitement composer en fonction de la plage traitée ?

Pour mémoire, voici (exemple) depuis Excel :


Dim tablo As Variant, plage As Range
Set plage = Range(Cells(1, 1), Cells(4, 7))
tablo = plage.Value ' elle est là, ta matrice, avec toutes les cellules de la plage


Un tableau Excel est en effet déjà un tableau dynamique

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !

Importer les valeurs d'une matrice excel dans une matrice VB.NET

3 réponses

Votre réponse

Discussions similaires