Discussion :

[Invité]

Bonjour à tous !

Dans mon application actuelle, je dois ouvrir dans Excel un nouveau document pour travailler dessus.

Ce nouveau document est un fichier CSV, délimité par des ";"...

Si je l'ouvre directement dans Excel, il n'y a pas de soucis, il me sépare bien les champs par colonnes... Mais si je l'ouvre à partir de mon petit code en VBA :

Code :

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

1
2
Dim appexcel As New Application
appexcel.Workbooks.Open fic_source

avec fic_source, le fichier... Bon, y a pas de soucis là dessus... Mais sur la façon dont il me l'ouvre... A savoir qu'au lieu de prendre les ";" comme séparateurs, il me prends les "," !

Même après ajout des options pour le forcer à ouvrir avec le bon délémiteur :

Code :

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

, Format:=6, delimiter:=";"

Le résultat est le même...

Si vous avez des idées, je suis preneur, car ça me bloque assez !

[ouskel'n'or]

Change son extension en .txt et ouvres-le en spécifiant séparateur "virgule"
Je ne sais pas si j'ai essayé mais je crois...
Tu dis

A+

[Mystro]

J'ai eu le même principe de soucis en enregistrant un fichier xls en csv. Cela viens du fait que VB utilise le principe anglais des fichiers csv c'est à dire utiliser "," comme séparateur.

Je n'ai malheureusement pas de solution à t'apporter.

Bon courage.

[Invité]

bon en effet... ça chie pas mal sur ce coup...

alors, en le transformant en txt et en lui demandant de séparer avec le ";", ça passe bien...

Bon, bin comme je dois conserver les extensions, je vais faire des temporaires renommé en txt... merci à vous...

[ouskel'n'or]

Extrait de l'aide

Code :

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

1
2
OldName = "ANCFICH.CSV": NewName = "ANCFICH.TXT"
Name OldName As NewName	' Renomme le fichier.

et tu récupères ANCFICH.CSV à la fin
A+

[Invité]

rah la crise ! Il me disait que le fichier existait déjà !
Moi, comme un con, j'interprète ça comme : "Le fichier CSV existe déjà, donc je peux pas le renommer" ce qui était un comble pour une fonction de renommage

Mais j'avais oublié que j'avais cré le txt juste avant pour tester le délémiteur, et que je ne l'avais pas supprimé... éh... éh...éh

[Igloobel]

Salut,
Je sais pas si ça peux t'aider mais lors d'un développement d'une appli en Juillet, je devais ouvrir un fichier texte (c'est un fichier.txt mais le principe est le même je pense pour un fichier CSV)

Code :

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

1
2
3
4
Workbooks.OpenText Filename:=file_select, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(23, 1), Array(33, 1), Array(39, 1), Array(40, 1), Array(44, 1), Array(47 _
        , 1), Array(53, 1), Array(77, 1)), TrailingMinusNumbers:=True

file_select est le nom du fichier (sélectionné auparavant par une boite de dialogue spécifique (version 2003)).
Alors si ton fichier a toujours la même forme tu peux coder en dur tes zones (Array) Moi le format du fichier était toujours identique.

C'est pas des plus joli, mais ça marche. Il est vrai que si tu ouvres des fichiers de format différent ("," pas à la même place) là, cela ne marchera plus.

Voilà ce que j'ai développé, si ça peut t'aider ...

Igloobel

[Invité]

Salut,
Je sais pas si ça peux t'aider mais lors d'un développement d'une appli en Juillet, je devais ouvrir un fichier texte (c'est un fichier.txt mais le principe est le même je pense pour un fichier CSV)

Code :

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

1
2
3
4
Workbooks.OpenText Filename:=file_select, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(23, 1), Array(33, 1), Array(39, 1), Array(40, 1), Array(44, 1), Array(47 _
        , 1), Array(53, 1), Array(77, 1)), TrailingMinusNumbers:=True

file_select est le nom du fichier (sélectionné auparavant par une boite de dialogue spécifique (version 2003)).
Alors si ton fichier a toujours la même forme tu peux coder en dur tes zones (Array) Moi le format du fichier était toujours identique.

C'est pas des plus joli, mais ça marche. Il est vrai que si tu ouvres des fichiers de format différent ("," pas à la même place) là, cela ne marchera plus.

Voilà ce que j'ai développé, si ça peut t'aider ...

Igloobel

Merci, et désolé de répondre si tard

Ta solution est intéressante, mais j'ai confirmé la solution de facilité (modification du fichier CVS en TXT temporairement...), question de délai, c'est mieux comme ça