Discussion :

[masena]

Bonjour,

j'essaie de copier des données d'un fichier excel vers un tableau vb.net.

La solution qui marche mais qui rame est une boucle for :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
                    For p = 1 To 4097
                        Tf(p) = ExcelclaAISS.Sheets("Tableaux").Cells.Item(15, p).Value
                        Tt(p) = ExcelclaAISS.Sheets("Tableaux").Cells.Item(22, p).Value
                        Tl(p) = ExcelclaAISS.Sheets("Tableaux").Cells.item(19, p).Value
                        Tv(p) = ExcelclaAISS.Sheets("Tableaux").Cells.item(16, p).Value
                    Next

Je souhaiterais trouver un moyen plus rapide et plus élégant de faire ca.

J'ai déjà effectué l'opération inverse (copier un tableau vb.net dans excel) de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExcelFeuillea1.Range("O2:U4097") = C1

Malheuresment pour moi l'inverse ne fonctionne pas (ie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C1 = (ExcelFeuillea1.Range("O2:U4097")

)

Avez vous une idée ?

Merci d'avance,

[hunteshiva]

Bonjours,
qu'entend tu par "l'inverse ne fonctionne pas"??
message d'erreur?

comment est déclaré C1?

[masena]

Pour moi l'inverse c'est de faire le tableau Vb.net = le tableau Excel.

Un truc du genre C = TabelauExcel.Range(A1:A..).

J'ai essayer de le faire en déclarant C en double ou en Object ca ne marche pas. J'ai une erreur qui me dit que ça n'est pas possible de convertir le format du tableau excel (object) au format de C (même si celui ci est déclaré en object).

[m_brun]

Bonjour,
Tu peux intégrer ta feuille excel en tant que table externe dans une base de donnée. En suite, par une requête tu récupères le contenu de ta table externe.

[masena]

La solution est en fait d'utiliser la fonction Excel.range de Microsoft.office.interop qui marche super bien.

Toutes les infos sont à l'adresse :
http://support.microsoft.com/kb/302094/fr