Comment ouvrir un fichier.csv ou un fichier.txt séparateur ";"

[ouskel'n'or]

Ouverture d'un fichier.txt avec séparateur ";"
Excel 97 et 2003

Code :

1
2
    Workbooks.OpenText Filename:="D:\xls\Fichier.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Ouverture d'un fichier.csv avec séparateur ";"
Excel 97 (version française) :

Code :

    Workbooks.Open FileName:="D:\xls\Fichier.csv"

Excel 2003

Code :

1
2
3
    Name "D:\xls\Fichier.csv" As "D:\xls\Fichier.txt"
    Workbooks.OpenText Filename:="D:\xls\Fichier.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Pour ouvrir un fichier texte, avec un point (".") comme séparateur décimal, en tant que feuille de calculs

Code :

1
2
3
    Workbooks.OpenText Filename:="D:\xls\Classeur1.txt", StartRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
        :=True, Semicolon:=True, DecimalSeparator:="."

Dans ce code également les séparateurs de données sont des points-virgules