Discussion :

[modjo]

bonjour,
j'ai fait un petit tour sur les aides et les tutoriels
mais je crois que je n'ai pas trouvé ce que je cherche

je voudrais ouvrir un fichier .csv et le transformer en .xls

exemple:

fichier .csv :

15/11/08 04:41:25,0,1

donc avoir une colonne pour chaque info separé par une virgule c'est à dire ici 3 colonnes

Ps: si possible 4colonnes (séparer la date de l'heure)


je recherche don soit un exemple ou lien

merci à tous

[OhMonBato]

Voir la FAQ, "Créer un classeur Excel en VB6"

[iclic]

Et ,comme Ohmonbato, je dirai en plus voir dans l'aide de VB6 l'instruction
RENAME

[SfJ5Rpw8]

Et ,comme Ohmonbato, je dirai en plus voir dans l'aide de VB6 l'instruction
RENAME

eu .. la c'est un raccourci un peu facile .. renommer un fichier ne change pas son format

modjo tu nous as pas dit si excel été installé sur ta machine ?

[modjo]

ok j'ai bien excel sur mon ordi

sinon renomer l'extension ne me servira pas a grand chose puisque je veux separer le texte en plusieur colonne

bon je vais regarder le fac et on verra

[iclic]

Je suis d'accord avec Bbill,le renommer ne fait que changer son nom.
Pour changer de format on peut le lire en binaire puis le réécrire en binaire, mais il faut alors très bien savoir ce que l'on fait ,c'est déjà beaucoup plus complexe,car il faut connaître parfaitement les structures des deux fichiers.

[modjo]

bon j'ai toujours pas trouver mon bonheur

ce que je vourai en clair c'est une commande qui me permettrait de convertir un fichier .csv en .xls

merci

le binaire m'a l'air assez compliqué pour moi

[OhMonBato]

Le plus simple est de piloter Excel depuis VB pour lire ton fichier csv et le sauvegarder en xls. Dans la FAQ tu trouveras plusieurs explications pour piloter des applications Office. Si ensuite tu butes sur un problème particulier reviens nous voir ici avec ton code.
La commande toute faite pour convertir du csv en xls reste du domaine du rêve. Quant à écire en binaire un fichier xls "à la volée", je ne connais personne qui fasse ça (ça veut pas dire que c'est impossible mais pas courant quand même).

[synip]

Au plus simple ce que je fais dans mes programmes ou j'utilise du .csv pour client et qu'il en a besoin en .xls, si celui-ci est deja bien structuré et bien cadré, tu a juste à faire une suppression de format et de lui changé par .xls

Exemple

Nb = len(monfichier.csv)

il va te retourner ici 14 caractères
le csv en fera quoi qu'il arrive toujours 3 avec son "." 4

Monfichier = monfichier.csv
Final = Mid(Monfichier,len(monfichier.csv)-4,4)
Final = Final & ".xls"

[SfJ5Rpw8]

Au plus simple ce que je fais dans mes programmes ou j'utilise du .csv pour client et qu'il en a besoin en .xls, si celui-ci est deja bien structuré et bien cadré, tu a juste à faire une suppression de format et de lui changé par .xls

Exemple

il va te retourner ici 14 caractères
le csv en fera quoi qu'il arrive toujours 3 avec son "." 4

même réponse ... :

eu .. la c'est un raccourci un peu facile .. renommer un fichier ne change pas son format

pour ouvrir un fichier csv avec excel tu n'as pas besoin de le renommer , tu peu l'ouvrir directement..



voici un code adapté de la

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
Private Sub Command1_Click()
 Dim oExcel As New Excel.Application
 Dim oWk As Workbook
 Dim MonFichier
 MonFichier = oExcel.GetOpenFilename _
  ("Fichiers texte (*.Csv;*.cdd),*.Csv ")
 Set oWk = oExcel.Workbooks.Open(FileName:=MonFichier, Format:=4, Delimiter:=";", Local:=True)
  oExcel.Visible = True
  oWk.SaveAs FileFormat:=xlNormal
  oWk.Close False
End If
 oExcel.Quit
 Set oWk = Nothing
 Set oExcel = Nothing
End Sub