Problème avec open() [Excel VBA]

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:

---

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:

---

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

---

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

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

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... :roll:
Tu dis

A+

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.

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

Extrait de l'aide

Code:

---

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+

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

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

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:

---

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

Citation:

---

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

---

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

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