Ouverture fichiers CSV

[xilef]

Bonjour à tout le monde,
En utilisant l'enregistreur VBA pour ouvrir un fichier CSV, j'obtiens
Workbooks.Open Filename:="C:\test.csv"

Et mes données se retrouvent bien dans des cellules différentes.
Cependant quand je déclenche ensuite la macro obtenue, je n'obtiens plus les memes données, elles ne sont plus séparées.
Si quelqu'un a la solution, qu'il en soit ici remercié.
Continuez ce site une mine d'info.

 

[Creepy]

Re : Ouverture fichiers CSV

Bonjour le Forum, Xilef,

Voici un bout de code obtenu avec l'enregistreur de macro pour un fichier CSV avec comme séparateur le ";" (point virgule).

Workbooks.Open Filename:="D:\Duration.csv"
  
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False

Equivalent du menu Données > Convertir.

A+

Creepy