[E-02] Choisir le séparateur dans un export CSV

Version imprimable

25/11/2008, 12h28
Antoun

[E-02] Choisir le séparateur dans un export CSV

Bonjour,

J'ai une petite macro qui exporte des données Excel en CSV avec .SaveAs FileFormat:=xlCSV. Mais d'un jour à l'autre, le séparateur change entre la virgule et le point-virgule...

Savez-vous ce qui détermine le choix de ce séparateur ? Peut-on intervenir dessus ?

Je précise que j'ai besoin d'avoir systématiquement un séparateur ; et que je souhaiterais éviter les solutions à base de "je concatène toutes les cellules de la ligne et je Print# le résultat".

Merci pour vos lumières !
25/11/2008, 13h54
pgz

Bonjour.

Regardes l'argument Local de la méthode SaveAS. Je crois qu'il permet de choisir entre séparateur local et celui de VBA.

Cordialement,

PGZ
25/11/2008, 14h08
Antoun

Super, ça marche !

Est-ce que tu saurais comment je peux vérifier en VBA que le séparateur local est le point-virgule ?
25/11/2008, 14h19
pgz

Peut-être du côté de l'objet LanguageSettings de l'application?

PGZ

J'ai trouvé avec une API :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Declare Function GetLocaleInfoW Lib "kernel32" _
 (ByVal LCID As Long, ByVal LCType As Long, _
 ByVal lpData As Long, ByVal cchData As Integer) As Integer
 
Private Const LOCALE_SLIST = &HC
 
Public Function GetLocaleInfoC(Locale As Long, _
  LCType As Long) As String
    Dim stBuff As String
    Dim rc As Long
    stBuff = String$(255, vbNullChar)
    rc = GetLocaleInfoW(Locale, LCType, StrPtr(stBuff), Len(stBuff))
    If (rc > 0) Then
      GetLocaleInfoC = Left(stBuff, InStr(1, stBuff, Chr(0)) - 1)
    End If
End Function
 
Sub Main()
  MsgBox GetLocaleInfoC(1024, LOCALE_SLIST )
End Sub

Merci pour tout !