[VBA-E]Ouvrir un fichier.csv ou un fichier.txt séparateur ";"

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

---

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:

---

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