Selon les "regional settings" de votre PC, vos fichiers CSV seront écrits et lus avec un séparateur de colonnes différent. J'ai eu ce probléme au boulot.
Le code suivant vous permet de déterminer quel séparateur est utilisé par le système (en général , ou ;).
Débile? Pas forcément! Si on a une procédure qui écrit des CSV, on a meilleur temps de savoir comment les écrire.
Source / Exemple :
Option Explicit
Const LOCALE_USER_DEFAULT = &H400
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Function CSV_Delimiter()
CSV_Delimiter = GetInfo(12)
End Function
Public Function GetInfo(ByVal lInfo As Long) As String
Dim Buffer As String, Ret As String
Buffer = String$(256, 0)
Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
If Ret > 0 Then
GetInfo = Left$(Buffer, Ret - 1)
Else
GetInfo = ""
End If
End Function
Conclusion :
La fonction GetInfo (donc tout!) vient de www.allapi.net.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.