Convertir csv en xls

**Anthos59** · 10/01/2011, 12h10

Bonjour à tous !

Après plusieurs recherches, je me retrouve toujours avec le même problème dans mon code vb.net

J'aimerais convertir mon fichier csv en fichier xls (qui aura donc la forme d'un tableau) car j'extrait d'une BDD des infos qui sont intégrées dans un fichier CSV.

(fichier csv obligatoire pour d'autres traitements)

quelqu'un aurait des liens pour avoir une piste sur ce que je veux faire svp ?

Merci d'avance !

**Geo2A** · 14/01/2011, 09h41

Bonjour,

La démarche est simple.
Utiliser l'interop pour piloter excel depuis le code lui faire ouvrir le fichier csv et l'enregistrer au format excel.

Pour le pilotage de excel via le code je crois qu'il y a de nombreux exemples sur ce forum.

**Pol63** · 14/01/2011, 10h47

oledb doit pouvoir faire le boulot sinon, et plus rapidement

**mounaje** · 14/01/2011, 11h29

Bonjour Anthos59

essay ça

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
 
 
Imports Excel = Microsoft.Office.Interop.Excel
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
 
        Dim appExcel As Excel.Application
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        appExcel = CreateObject("Excel.Application")
        wbExcel = appExcel.Workbooks.Open("c:ex47.csv")
        wbExcel.SaveAs(Filename:= _
            "C:\ex47xl.xls", FileFormat:=Excel.XlFileFormat.xlExcel8, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
 
 End Sub

**Anthos59** · 14/01/2011, 18h59

Bonjour à tous !

Merci pour vos réponses.

J'étais sur la piste de l'interop mais pas encore de la même manière que les solutions que vous m'aviez donné. (j'essayais de passer ça grâce aux macros)

Ma solution ne fonctionne pas et apparement celle de Mounaje ne passe pas non plus.

Pour des raisons techniques, mon séparateur est le #
Il faut ajouter une spécification à ce code ? j'essaie de trouver ça et reviens vers vous si j'ai trouvé.

Merci de votre aide.

**MABROUKI** · 16/01/2011, 12h54

bonjour
on se perd dans vb.net parbleu ,il n'y a pas à sortir l'artillerie lourd .
streamreader fait le boulot:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Imports Excel = Microsoft.Office.Interop.Excel
Import System.FileIO
 
Using MyReader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("c:ex47.csv")
     '-------cree un classeur de meme nom---------
    Dim appExcel As Excel.Application
    appExcel = new  Excel.Application   
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    wbExcel = appExcel.Workbooks.Add("c:ex47.xls")
    'acceder 1ere feuille
    Dim wbFeuille as Excel.WorkSheet
    wbFeuille =  wbExcel.WorkSheet(1)
   '-------------ouverture fichier texte & lecture ---------
   MyReader.TextFieldType = FileIO.FieldType.Delimited
   MyReader.SetDelimiters("#")
   'ligne lue
   Dim currentRow As String()
   Dim lig as integer =1
   While Not MyReader.EndOfData
      Try
         currentRow = MyReader.ReadFields()
        'champ lu 
         Dim col as integer =1
        Dim currentField As String
        For Each currentField In currentRow
            wbFeuille.cells(lig,col).value=currentField
            'colonne suivante
            col=col+1
         Next
              Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
      MsgBox("Line " & ex.Message & _
      "is not valid and will be skipped.")
      End Try
      'ligne suivante
      lig=lig+1
   End While
    wbExcel.SaveAs(Filename:= _
            "C:\ex47xl.xls", FileFormat:=Excel.XlFileFormat.xlExcel8, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
 
End Using

bon code.............

**Anthos59** · 19/01/2011, 22h59

Re-bonjour à tous

Désolé de faire le boulet comme ça mais je me retrouve de nouveau face à une erreur que je ne comprend pas.
j'ai essayé diverses choses mais sans succès.

Voici mon code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using MyReader As New  _
Microsoft.VisualBasic.FileIO.TextFieldParser("D:\SaveITS\test\intakeEXP.csv")
            '-------cree un classeur de meme nom---------
            Dim appExcel As Excel.Application
            appExcel = New Excel.Application
            'Création du fichier s'il n'existe pas
            If File.Exists("D:\SaveITS\test\intakeXLS.xls") Then
                File.Delete("D:\SaveITS\test\intakeXLS.xls")
                Dim MonFichier As IO.FileStream = New IO.FileStream("D:\SaveITS\test\intakeXLS.xls", IO.FileMode.Create)
            Else
                Dim MonFichier As IO.FileStream = New IO.FileStream("D:\SaveITS\test\intakeXLS.xls", IO.FileMode.Create)
            End If
            Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook 'Classeur Excel
            wbExcel = appExcel.Workbooks.Add("D:\SaveITS\test\intakeXLS.xls")
            'acceder 1ere feuille
            Dim wbFeuille As Excel.Worksheet
            wbFeuille = wbExcel.WorkSheet(1)
            '-------------ouverture fichier texte & lecture ---------
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters("#")
            'ligne lue
            Dim currentRow As String()
            Dim lig As Integer = 1
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    'champ lu 
                    Dim col As Integer = 1
                    Dim currentField As String
                    For Each currentField In currentRow
                        wbFeuille.Cells(lig, col).value = currentField
                        'colonne suivante
                        col = col + 1
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & _
                    "is not valid and will be skipped.")
                End Try
                'ligne suivante
                lig = lig + 1
            End While
            wbExcel.SaveAs(Filename:= _
                    "D:\SaveITS\test\intakeXLS.xls", FileFormat:=Excel.XlFileFormat.xlExcel8, _
                    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                    CreateBackup:=False)
 
 
            wbExcel.Close(True)
            wbExcel = Nothing
            appExcel.Quit()
            appExcel = Nothing
 
 
        End Using
    End Sub
End Class

Il me renvoie l'erreur suivante :

Le membre public 'WorkSheet' du type 'Workbook' est introuvable.

Quelqu'un aurait une piste svp ?

Merci d'avance

**MABROUKI** · 20/01/2011, 04h10

REBONJOUR
on ne cree pas ,svp,un fichier Excel avec IO.FileStream.
Crois-tu que je connais pas IO.FileStream.
IO.FileStream cree des fichiers binaires ou texte,mais illisible par Excel .
C'est pour cela qu'on a fait tout ce code,ou bien tu l'as oublie?

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using MyReader As New  _
Microsoft.VisualBasic.FileIO.TextFieldParser("D:\SaveITS\test\intakeEXP.csv")
            '//delete seulement le classeur de meme nom s'il existe //
            Dim appExcel As Excel.Application
            appExcel = New Excel.Application
            'Création du fichier s'il n'existe pas
            If File.Exists("D:\SaveITS\test\intakeXLS.xls") Then
                File.Delete("D:\SaveITS\test\intakeXLS.xls")
            End If
            Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook 'Classeur Excel
            '/// voici le createur excel qui cree le nouveau classeur
            wbExcel = appExcel.Workbooks.Add("D:\SaveITS\test\intakeXLS.xls")
            'acceder 1ere feuille
            Dim wbFeuille As Excel.Worksheet
            wbFeuille = wbExcel.WorkSheet(1)
            '-------------ouverture fichier texte & lecture ---------
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters("#")
            'ligne lue
            Dim currentRow As String()
            Dim lig As Integer = 1
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    'champ lu 
                    Dim col As Integer = 1
                    Dim currentField As String
                    For Each currentField In currentRow
                        wbFeuille.Cells(lig, col).value = currentField
                        'colonne suivante
                        col = col + 1
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & _
                    "is not valid and will be skipped.")
                End Try
                'ligne suivante
                lig = lig + 1
            End While
            '///a la fin du balayage  fich texte ici le createur excel sauvegarde le 
            '///nouveau classeur et ferme excel
            wbExcel.SaveAs(Filename:= _
                    "D:\SaveITS\test\intakeXLS.xls", FileFormat:=Excel.XlFileFormat.xlExcel8, _
                    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                    CreateBackup:=False)
 
 
            wbExcel.Close(True)
            wbExcel = Nothing
            appExcel.Quit()
            appExcel = Nothing
 
 
        End Using
    End Sub
End Class

cette fois ca doit marcher,a moins que tu innoves encore ......
bon code...

**Anthos59** · 20/01/2011, 09h25

Désolé si je t'ai offensé en modifiant ce code.

Je découvre un peu le VB.NET et essaie des choses pour éviter de toujours vous ennuyer.

Si je garde ce dernier code, il me dit :

'intakeXLS.xls' introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.

Voilà pourquoi j'avais essayé de créer un fichier de cette manière car je ne voyais que cette manière de faire.

Aurais tu une autre idée sur la manière de régler cette erreur stp ?

Je continue de chercher.

Merci encore.

**chrismonoye** · 20/01/2011, 09h43

Bonjour,
si j'ai bien lu, ça semble logique.
On appelle un fichier que l'on vient de détruire.

**Anthos59** · 20/01/2011, 09h57

Je suis d'accord avec toi, mais comment peut-on créer "proprement" le fichier Excel qui va servir ?

Merci

**chrismonoye** · 20/01/2011, 10h43

En ne renseignant pas le "add".
Le fichier sera créé "proprement" avec le "saveas"
A tester :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
        Using MyReader As New  _
Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath & "\ex47.csv")
            '//delete seulement le classeur de meme nom s'il existe //
            Dim appExcel As xls.Application
            appExcel = New xls.Application
            'Création du fichier s'il n'existe pas
            If File.Exists(Application.StartupPath & "\ex47.xlsx") Then
                File.Delete(Application.StartupPath & "\ex47.xlsx")
            End If
            Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook 'Classeur Excel
            '/// voici le createur excel qui cree le nouveau classeur
            wbExcel = appExcel.Workbooks.Add() '(Application.StartupPath & "\ex47.xlsx")
            'acceder 1ere feuille
            Dim wbFeuille As xls.Worksheet
            wbFeuille = CType(wbExcel.Worksheets(1), xls.Worksheet)
            '-------------ouverture fichier texte & lecture ---------
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(",")
            'ligne lue
            Dim currentRow As String()
            Dim lig As Integer = 1
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    'champ lu 
                    Dim col As Integer = 1
                    Dim currentField As String
                    For Each currentField In currentRow
                        Dim castRange As xls.Range = CType(wbFeuille.Cells(lig, col), xls.Range)
                        castRange.Value = currentField '= result.Rows(l).Cells(c).Value
                        'colonne suivante
                        col = col + 1
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & _
                    "is not valid and will be skipped.")
                End Try
                'ligne suivante
                lig = lig + 1
            End While
            '///a la fin du balayage  fich texte ici le createur excel sauvegarde le 
            '///nouveau classeur et ferme excel
            wbExcel.SaveAs(Filename:=Application.StartupPath & "\ex47.xlsx")
 
 
            wbExcel.Close(True)
            wbExcel = Nothing
            appExcel.Quit()
            appExcel = Nothing
 
        End Using

Il faudra remplacer "xls" par ton import ("Excel") et les chemins par les tiens.
Mon import étant :

Code :

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

Imports xls = Microsoft.Office.Interop.Excel

J'ai rajouté des "CType" pour les liaisons tardives, (OptionStrict sur On).
Si la solution de MABROUKI te convient, il faut la garder, sinon si tu as des "#" dans tes données, il faudrait envisager de passer par un "Schema.ini".
Mais c'est une autre histoire.

**Anthos59** · 20/01/2011, 11h15

Merci ça fonctionne.

Voici ce que j'ai utilisé :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Imports xls = Microsoft.Office.Interop.Excel
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Using MyReader As New  _
Microsoft.VisualBasic.FileIO.TextFieldParser("D:\SaveITS\test\intakeEXP.csv")
            '//delete seulement le classeur de meme nom s'il existe //
            Dim appExcel As xls.Application
            appExcel = New xls.Application
 
            'Création du fichier s'il n'existe pas
            If File.Exists(Application.StartupPath & "D:\SaveITS\test\intakeXLS.xls") Then
                File.Delete(Application.StartupPath & "D:\SaveITS\test\intakeXLS.xls")
            End If
 
            appExcel.ScreenUpdating = False
            appExcel.DisplayAlerts = False
            appExcel.Visible = False
 
            Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook 'Classeur Excel
            '/// voici le createur excel qui cree le nouveau classeur
            wbExcel = appExcel.Workbooks.Add() '(Application.StartupPath & "\ex47.xlsx")
            'acceder 1ere feuille
            Dim wbFeuille As xls.Worksheet
            wbFeuille = CType(wbExcel.Worksheets(1), xls.Worksheet)
            '-------------ouverture fichier texte & lecture ---------
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters("#")
            'ligne lue
            Dim currentRow As String()
            Dim lig As Integer = 1
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    'champ lu 
                    Dim col As Integer = 1
                    Dim currentField As String
                    For Each currentField In currentRow
                        Dim castRange As xls.Range = CType(wbFeuille.Cells(lig, col), xls.Range)
                        castRange.Value = currentField '= result.Rows(l).Cells(c).Value
                        'colonne suivante
                        col = col + 1
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & _
                    "is not valid and will be skipped.")
                End Try
                'ligne suivante
                lig = lig + 1
            End While
            '///a la fin du balayage  fich texte ici le createur excel sauvegarde le 
            '///nouveau classeur et ferme excel
            wbExcel.SaveAs(Filename:= _
                    "D:\SaveITS\test\intakeXLS.xls", FileFormat:=xls.XlFileFormat.xlExcel8, _
                    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
                    CreateBackup:=False)
 
 
            'On vide le presse-papier pour éviter les message demandant si on veut garder les infos
            Clipboard.Clear()
 
            wbExcel.Close(True)
            wbExcel = Nothing
            appExcel.Quit()
            appExcel = Nothing
 
        End Using
    End Sub
End Class

Je n'ai pas bien compris l'histoire du Schema.ini. Une petite explication rapide sur ce sujet afin que je puisse me renseigner d'avantage ?

Merci encore à tout le monde

EDIT : Une autre question reste en suspens également.
J'ai un processus Windows EXCEL.exe qui reste ouvert tant que mon appli n'est pas fermée. Est-ce normal ? Je ne comprend pas pourquoi il utilise encore des ressources après avoir fait son traitement alors que je pensais tout avoir fermé.

**MABROUKI** · 22/01/2011, 02h29

bonjour
a chaque fois que nous deboguons,si on lance excel et que ca crashe ,excel reste en memoire. Et de 1
on arreter dans debug mais on oublie qu'"un excel " est entrain de tourner.
on corrige et comme des braves on lance debug et ca crashe.et de 2.
on oublie et rebelote.

aussi quand on programme,il faut constamment avoir à l'esprit que losque il y a un ratage,de ne pas oublier d'arreter excel dans le gestionnaire de tache.
c'est la corvee...
a bon entendeur
bon code....

**chrismonoye** · 24/01/2011, 12h00

Bonjour,
quelles sont les versions du Framework que vous utilisez?

**Anthos59** · 24/01/2011, 20h03

Merci, j'y vois un peu plus clair et ça fonctionne comme je voulais.

Merci à tous !

Convertir csv en xls

VB.NET

Discussions similaires

Partager

Partager