Discussion :

[ouskel'n'or]

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

Code :

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

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 :

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

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

Excel 2003

Code :

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

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

[ouskel'n'or]

Comme l'adresse que j'avais indiquée dans un post précédent a disparu, je propose ce code
Ouvre un fichier texte, ave un point (".") comme séparateur décimal, en tant que feuille de calculs

Code :

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

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

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