Ouverture d'un fichier.txt avec séparateur ";"
Excel 97 et 2003
Ouverture d'un fichier.csv avec séparateur ";"
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
Excel 97 (version française) :
Excel 2003 : Le fichier.csv doit s'ouvrir en tant que fichier texte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Workbooks.Open FileName:="D:\xls\Fichier.csv"
(La conversion n'est pas indispensable)
Le code suivant ouvre un fichier texte (.txt ou .csv), avec le point (".") comme séparateur décimal et le point-virgule (";") comme séparateur de données.
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
Le code suivant ouvre un fichier texte (.csv ou .txt), le séparateur décimal paramétré dans le système, et la virgule (",") comme séparateur de données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Workbooks.OpenText Filename:="D:\xls\Classeur1.csv", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _ :=False, Semicolon:=True, DecimalSeparator:="."
L'aide en ligne précise l'utilisation des nombreux paramètres à la rubrique "OpenText, méthode"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:= _ xlWindows, DataType:=xlDelimited, TextQualifier:=xlNone, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _ , Space:=False, Other:=False
Tous les paramètres dont la valeur est la valeur par défaut sont inutiles.
Partager