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 : Le fichier.csv doit s'ouvrir en tant que fichier texte.
(La conversion n'est pas indispensable)

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 (.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
    Workbooks.OpenText Filename:="D:\xls\Classeur1.csv", StartRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
        :=False, Semicolon:=True, DecimalSeparator:="."

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
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

L'aide en ligne précise l'utilisation des nombreux paramètres à la rubrique "OpenText, méthode"
Tous les paramètres dont la valeur est la valeur par défaut sont inutiles.

[vfelix]

Merci pour cette info, ce bug d'Excel m'a fait perdre une demi-journée.

A signaler qu'Excel 2003 également ne sait pas traiter un fichier CSV avec comme délimiteur le point virgule si le fichier à importer n'a pas l’extension .TXT. Si on tente d'importer un fichier avec l’extension .CSV avec la méthode OpenText, le point virgule n'est pas utilisé comme délimiteur, mais uniquement la virgule simple (et pour donc?).
En Excel 2003 je suis donc obliger d'utiliser la fonction Name pour renommer en .txt.

Excel est bel et bien remplie de piège de ce genre. C'est fou comme cela peut être chronophage.

[Marc-L]

Comme indiqué dans plusieurs messages en utilisant la recherche dans la section Macros et VBA Excel par exemple,
Excel version française, même en 2003, lit sans souci un fichier .csv délimité ; avec la virgule comme séparateur décimal …

Premier test : double clic sur le fichier .csv depuis l'Explorateur Windows.

Si le fichier est correctement importé (99,99% des cas),
il est donc directement ouvrable en VBA via la méthode Open associée à un objet Workbooks en
définissant son argument Local:=True, rien qu'en lisant l'aide de cette méthode !

Effectivement, la méconnaissance d'un produit est chronophage …

[Jacques F.]

Chers amis de France et de Navarre et autres pays de la vieille Europe,

Je me rends compte que Marc-L vient de donner la bonne bonne réponse cherchée depuis des mois! Bravo!
En complément: elle fonctionne aussi bien en 2003 qu'en 2010!
Et comme on dit chez moi, "En voor de Vlamingen, hetzelfde"!

Un code complet pour l'exemple qui nous occupe est donc:

Code :

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

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

[Marc-L]

Merci mais je n'y suis pour rien, d'autres l'ont déjà indiqué sur ce forum …

Mais ayant donc vérifié qu'une seule commande suffit, depuis j'insiste ‼