Discussion :

[Nospam54]

Bonjour à toutes et tous !

Voilà mon problème...

Mon application est censée commencer par le retraitement d'un fichier avec l'extension ".CVS". Si j'ouvre le fichier manuellement, celui présente ses données par colonnes, exactement comme le ferait un fichier .XLS.
S'ensuit mon code VBA pour formater le fichier selon mes besoins (suppression de colonnes, de lignes, formatage des nombres, etc...).
Si en début de macro je crée le code VBA pour ouvrir automatiquement ledit fichier :

Code :

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

Workbooks.Open Filename:= "C:\Users\toto\Documents\fichier.CSV"

Celui-ci s'ouvre en utilisant le séparateur ";". Ce qui, bien entendu, met le bor... bazar dans ma macro ! Et comme je me retrouve avec une multitude de colonnes contenant des données qui ne veulent plus rien dire avec des séparateurs ";"... je me vois mal recoder.

Quelqu'un(e) a-t-il une solution à me proposer ?

Merci d'avance...

Nospam

N.B. : Petite précision, je tourne sous Excel 2003.

[Igloobel]

Salut,

je te propose un truc du genre :

Code :

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

1
2
3
4
Workbooks.OpenText Filename:=nom du fichier avec path, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
        Array(Array(0, 1), Array(21, 1), Array(25, 1), Array(67, 1)), _
        TrailingMinusNumbers:=True

la mutitude de array te permet de couper tes lignes a la distence que tu veux

Je suis pas sur d'être très clair

Tu dis si cela te conviens

A+

[Nospam54]

Merci pour ta réponse rapide !

J'ai testé, malheureusement cela ne règle pas mon problème. Ton code ouvre le fichier CVS de la même manière que le mien, c'est à dire en jugeant bon de mettre le ";" comme séparateur... J'ai même essayé en changeant quelques options, rien n'y fait !

Comment cela se fait-il que l'ouverture manuelle convient et pas celle par code ?

[Nospam54]

Oui, c'est tout bête... J'ai trouvé la soluce sur un autre forum. Il suffir d'ajouter "Local:=True" à la fin du code. Ce qui donne :

Code :

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

Workbooks.Open Filename:= "C:\Users\toto\Documents\fichier.CSV", Local:=True

Merci quand même !!!

Nospam