Discussion :

[Joseldsm]

Bonjour à toutes et à tous !

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

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

Code :

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

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

Cependant, mon programme ne reconnait pas "xlCSV".

Je travaille sous Microsoft Visual Basic 2010 Express.

Merci bien

joseldsm

[r.morel]

Salut,
remplace :

Code :

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

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

par :

Code :

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

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

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

Code :

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

Imports Microsoft.Office.Interop.Excel

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

[Joseldsm]

Merci beaucoup pour votre aide !

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

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

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

[Joseldsm]

J'en ai aucune idée également malheureusement :/

[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 ?

[Invité]

bonjour,
que représente FichierExcel?

si c'est ton WorkBook alors

Code :

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

FichierExcel.SaveAs

non?

[Joseldsm]

Code :

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

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.

[Invité]

Code :

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

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!

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

[Invité]

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

Code Vb.net :

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

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

[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 :/

[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"

[chrismonoye]

Bonjour,
à tester :

Code :

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

FileFormat:=XlFileFormat.xlCSV

[Joseldsm]

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

Merci à tous pour votre grande aide !

[Invité]

pour info

Code :

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

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