Convertir fichier Excel en fichier CSV (avec séparateurs ; )

Version imprimable

25/01/2016, 14h05
Joseldsm

Convertir fichier Excel en fichier CSV (avec séparateurs ; )

Bonjour à toutes et à tous !

Je souhaiterai convertir un fichier Excel en fichier CSV avec des séparateurs ; . :D

Après quelques recherches sur internet, j'en ai déduis qu'il suffisait d'enregistrer le fichier excel sous le format CSV:

Code:

FichierExcel.ActiveWorkbook.SaveAs(FileName:=chemin & NomFichier2 & ".csv", FileFormat:=xlCSV)

Cependant, mon programme ne reconnait pas "xlCSV". :oops:

Je travaille sous Microsoft Visual Basic 2010 Express.

Merci bien :)

joseldsm
25/01/2016, 14h52
r.morel

Salut,
remplace :

Code:

FichierExcel.ActiveWorkbook.SaveAs(FileName:=chemin & NomFichier2 & ".csv", FileFormat:=xlCSV)

par :

Code:

FichierExcel.ActiveWorkbook.SaveAs(FileName:=chemin & NomFichier2 & ".csv", XlFileFormat.xlCSV)

Edit :
Préalablement utiliser (avant la première sub de ton module) :

Code:

Imports Microsoft.Office.Interop.Excel
25/01/2016, 14h59
jopopmk

Salut,

d'apèrs cette fiche MSDN les possibilités pour le paramètre de format sont référencés via l'énumération XlFileFormat. Je connais peu VB, mais en C# on doit préfixer par le nom de l'énum pour atteindre ses valeurs (ex. XlFileFormat.xlCSV). Après ton souci vient peut-être de l'utilisation d'une vieille version du COM. Perso j'ai testé avec Microsoft Excel 14.0 Object Library :
- mettre l'extension .csv ne suffit pas à ce que le moteur détecte le format (on s'en doutait mais fallait essayer, ça mange pas de pain),
- avec XlFileFormat.xlCSV en param j'ai bien un CSV "lisible", avec les champs séparés par ... de simples virgules.

Bonne recherche.
25/01/2016, 15h00
Joseldsm

Merci beaucoup pour votre aide ! :D

Malheureusement il ne reconnait toujours pas "xlCSV", il en est de même pour l'importation de "Microsoft.Office.Interop.Excel"... :roll:

J'ai du mal à comprendre le pourquoi de tout cela :/ Dans toutes mes recherches cela semble être la solution.. :(

En ce qui concerne la virgule ou le point-virgule, j'essaierai de voir ça dans un second temps :mouarf:
25/01/2016, 15h45
jopopmk

Si tu ne trouves pas le namespace Microsoft.Office.Interop.Excel c'est peut-être que tu n'as pas référencé la lib COM ?
Mais du coup il ne devrait pas non plus trouver les classes Application et WorkBook ... bizarre.
25/01/2016, 15h58
Joseldsm

J'en ai aucune idée également malheureusement :/
25/01/2016, 16h03
jopopmk

Si tu passes ta souris sur WorkBook VS t'affiche quoi comme type ? Même question pour Application ?
Quelle est le nom de la lib COM Excel que tu as référencée dans ton projet ?
25/01/2016, 16h15
Invité

bonjour,
que représente FichierExcel?

si c'est ton WorkBook alors

Code:

FichierExcel.SaveAs

non?
25/01/2016, 17h34
Joseldsm
Code:

1 2 FichierExcel = CreateObject("Excel.application") FichierExcel.Workbooks.Open(chemin & NomFichier2 & ".xlsx")
FichierExcel est mon application Excel.

Même en enlevant "Workbooks", j'ai la même erreur malheureusement.

Code:

1 2 3 FichierExcel = CreateObject("Excel.application") Dim Wb as object=FichierExcel.Workbooks.Open(chemin & NomFichier2 & ".xlsx") Wb.saveAs
là ont est plus en .net mais en V6! CreatObject n'existe pas en Vb.net!

25/01/2016, 17h56
jopopmk

Houla ! CreateObject c'est du spé VB ...

Bon, du coup je pense que tu n'as pas référencé la lib :
- clique droit sur ton projet dans la fenêtre "explorateur de solution",
- dans le menu contextuel clique sur "Ajouter une référence ...",
- dans la boîte de dialogue, dans le volet "COM", sélectionne la catégorie "Bibliothèques de types",
- dans la liste de droite recherche "Microsoft Excel X Object Library" (le X est un chiffre, chez moi c'est "14.0") et coche sa case,
- clique sur "OK" pour finaliser l'ajout de la référence.

Maintenant tu peux importer Microsoft.Office.Interop.Excel et tu as accès à toutes ses fonctionnalités (tu devrais même pouvoir te passer de CreateObject pour instancier un "vrai" objet Excel.Application).

Bonjour,
pour information,voila comment gérer le CreateObject en vb.net!

Code:

1
2
3
4
5
6
dim OngExcel as Object =CreateObject("Excel.Application")
Public Function CreateObject(ByVal app As String) As Object
        Dim AppType As Object = Type.GetTypeFromProgID(app)
        Dim ApplInst As Object = Activator.CreateInstance(AppType)
        Return ApplInst
End Function

26/01/2016, 10h17
Joseldsm

Merci beaucoup de votre aide !

J'y suis presque, mais dans l'onglet COM je n'ai pas de catégories, je n'ai que le listing des librairies.
De plus, impossible de trouver "Microsoft Excel X Object Library" ...
J'ai bien "Microsoft Office 15.0 Object Library" mais pas de Excel :/
26/01/2016, 10h48
Joseldsm

C'est bon j'ai réussi à ajouter la librairie "Microsoft Excel X Object Library" qui n'apparaissait pas dans l'onglet COM.

Pour cela je l'ai ajouté manuellement avec le chemin suivant :
C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE
ou
C:\Programmes\Microsoft Office 15\Root\Office15\EXCEL.EXE

Il reconnait donc maintenant l'importation Microsoft.Office.Interop.Excel.
Mais toujours pas le fameux "XlFileFormat:=xlCSV" :(
26/01/2016, 11h11
chrismonoye

Bonjour,
à tester :

Code:

FileFormat:=XlFileFormat.xlCSV
26/01/2016, 11h42
Joseldsm

Problème résolu en utilisant la syntaxe suivante : "FileFormat:=Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV"

Merci à tous pour votre grande aide ! :)

pour info

Code:

1
2
3
4
5
6
7
8
9
10
11
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop.Excel.XlFileFormat
Module Module1
    Sub Main()
        Dim Xls As New Microsoft.Office.Interop.Excel.Application
        Xls.Visible = True
        Dim Wb As Microsoft.Office.Interop.Excel.Workbook = Xls.Workbooks.Add
        Wb.Sheets(1).range("A1:C20").value = "toto"
        Wb.SaveAs(Filename:="C:\temp\TEST.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True)
    End Sub
End Module