Lire un fichier .XLS

Bonjour Bonjour,


J'aimerai pouvoir lire dans un fichier .xls sans forcément avoir Exel ou tout autre logiciel externe d'installé...


J'ai fait de nombreuse recherches web et tout ce que j'ai trouvé c'est un code C# ICI (que je n'ai pas réussi à convertir correctement en VB.NET avec un convertisseur en ligne, visual studio m'indiquait des erreurs...) :aie:

J'ai également trouvé un code VB.NET ICI

Voici le code (du second lien) avec quelques transformations pour convenir à mon utilisation :

Code:

---

Imports xls = Microsoft.Office.Interop.Excel

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'variables pour excel Dim appXls As xls.Application Dim sheet As xls.Worksheet   appXls = New xls.Application appXls.Visible = False   appXls.Workbooks.Open("C:\Users\Kamikazoide\Dropbox\Applications\SCANPET\SuperMarc_20180106_1936.xls")   sheet = CType(appXls.ActiveWorkbook.Worksheets("Data"), xls.Worksheet) 'sheet.Application.Calculation = Microsoft.Office.Interop.Excel.XlCalculation.xlCalculationManual For i = 2 To sheet.UsedRange.Rows.Count   If Not sheet.Cells(i, "A").Value.ToString = "" Then Dim CodeBarre As String = sheet.Cells(i, "A").Value Dim Jour() As String = sheet.Cells(i, "B").Value Dim Heure() As String = sheet.Cells(i, "C").Value Me.CU_Refre.REFRE_LV_CodeB.Items.Add(sheet.Cells(i, "A").Value) End If Next appXls.Quit()

---

Mais Visual studio me trouve toujours des erreurs... auriez vous une solution ou une idée à m’apporter?


Merci beaucoup d'avance :)

Citation:

---

Envoyé par Kamikazoide

Bonjour Bonjour,

Mais Visual studio me trouve toujours des erreurs... auriez vous une solution ou une idée à m’apporter?


Merci beaucoup d'avance :)

---

Ben non

:cristal:

Parce que sans savoir quelles erreurs et à quelle ligne ...

Citation:

---

J'aimerai pouvoir lire dans un fichier .xls sans forcément avoir Exel

---

Ton code t'oblige d'avoir Excel d'installé. Pour t'en sortir autrement, soit que tu trouves la définition d'un fichier xls et tu programmes quelque chose pour lire/écrire un fichier binaire du type xls.

Soit que tu utilises xlsx, et là, tu as au moins quatre solutions :

System.io.packaging
SDK Open XML

EPPlus
ClosedXML

Après re-lecture effectivement mon message était assez vague..:aie:, merci quand même d'avoir pris le temps de me répondre:D.

J'ai fait pas mal d'autre recherches et j'ai trouvé une technique extrêmement simple (qui ne nécessite normalement pas EXCEL)

Alors voici la doc avec le code en C# (j'ai pris te technique n°3)

Et voici le code parfaitement fonctionnel modifié et transformé pour le VB.NET :

Code:

---

Imports Net.SourceForge.Koogra.Excel

---

Code:

---

1 2 3 4 5 6 7 8

Dim resultat As New ArrayList() Dim filePath As String = "C:\Classeur1.xls" Dim workbook As Workbook = New Workbook(filePath) Dim worksheet As Worksheet = workbook.Sheets.GetByName("Feuil1") For NB = 0 To CDbl(worksheet.Rows.MaxRow) 'Pour ajouter les 2 premières colonnes de chaque ligne à l'ArrayList "resultat" resultat.Add(worksheet.Rows(NB).Cells(0).Value.ToString & worksheet.Rows(NB).Cells(1).Value.ToString) Next

---

:alerte:Pensez à ajouter la Bibliothèque Koogra Excel BIFF Reader Library à votre projet

Si tu as des horreurs, c'est à quelle ligne et quel est le message ?

Je vois bien que cette ligne est suspecte, mais le reste ????????????????????????????????????????????????????????????????????????

Code:

---

Dim worksheet As Worksheet = workbook.Sheets.GetByName("Feuil1")

---

Essaie plutôt:

Code:

---

Dim worksheet As Worksheet = workbook.Sheets("Feuil1")

---

Mais pour le reste, je n'ai pas le temps d'aller à la pêche.

Je me suis peut être mal exprimé :roll:

Mon 2nd message contient un code parfaitement fonctionnel, je l'ai juste partagé pour aider ceux qui cherche également à lire un fichier .xls

En tout cas je te remercie pour tes réponses apportées malgré mes messages pas toujours très clair :zoubi:

P.S.: Si j'avais pensé à mettre le sujet en résolu ça aurai peut être aussi aidé :boulet: