Discussion :

[Kamikazoide]

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...)

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

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

Code :

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

Imports xls = Microsoft.Office.Interop.Excel

Code :

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

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

[clementmarcotte]

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



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

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

[Kamikazoide]

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

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 :

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

Imports Net.SourceForge.Koogra.Excel

Code :

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

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

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

[clementmarcotte]

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 :

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

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

Essaie plutôt:

Code :

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

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

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

[Kamikazoide]

Je me suis peut être mal exprimé

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

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