ouvrir un fichier .csv via VB

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

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

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

Citation:

---

Envoyé par iclic

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 ?

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

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.

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

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

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

Citation:

---

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

Citation:

---

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

---

Citation:

---

Envoyé par 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

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

Citation:

---

Envoyé par bbil

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 :faq:

Code:

---

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

---