Propriété QueryTable.TextFileDecimalSeparator ne fonctionne pas

Version imprimable

Bonjour,

J’importe un fichier texte dans un classeur Excel et je n’arrive pas à définir la virgule comme séparateur décimal.

Dans le code ci-dessous

Code:

.TextFileDecimalSeparator = ","

est ignoré et je ne comprends pas pourquoi. Tout le reste fonctionne correctement. Ai-je oublié quelque chose ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier_Importé, Destination:=Range("$A$1"))
        .Name = "blabla"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
            If Séparateur_Tabulation = True Then
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
            Else
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
            End If
        .TextFileCommaDelimiter = False         
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .TextFileDecimalSeparator = ","  
        .Refresh BackgroundQuery:=False
    End With

Merci pour votre aide

04/02/2015, 17h41
Kimy_Ire

Bonjour Daejung,

J'imagine que le caractère au sein de ton fichier texte n'a pas le même code ASCII que celui que tu cherches.
Ainsi je te propose dans un premier temps d'utiliser la fonction Asc() sur le caractère en question et de la chercher avec .TextFileDecimalSeparator = Chr(XX) dans ta macro dès que tu auras le résultat.

N'hésite pas à me tenir au courant ! :ccool:

Cordialement,
Kimy
04/02/2015, 17h55
Daejung

Merci je verrai cela au bureau demain mais je ne suis pas sûr de bien comprendre.

Veux tu dire que .TextFileDecimalSeparator = Chr(XX) définit le caractère décimal que l'on veut remplacer (le point dans mon cas) ? Pour moi xx c'était ce que je voulais comme caractère décimal, donc une virgule à la plage du point qui se trouve dans le fichier.
04/02/2015, 18h24
Kimy_Ire
Daejung,

J'ai écris vite et donc je me suis surement très mal exprimé.
Je te propose de faire une toute petite macro pour voir quel est le code ASCII du caractère problématique en utilisant la méthode Asc().
Quelque chose du type :
Code:

1 2 3 Sub retour_ascii() MsgBox Asc("mon_caractère") End Sub
Ceci te retournera une valeur numérique que tu pourras ainsi insérer dans ta macro grâce à la fonction "inverse" de Asc() qui est Chr().
Ainsi, si tu exécutes .TextFileDecimalSeparator = Chr(62) ton séparateur sera le ">".

C'est une piste, je ne sais pas si ça marchera. :aie:

N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy
04/02/2015, 19h01
Daejung
Oui mais ce n'est pas ce caractère, peut-être problématique, que je veux avoir comme séparateur décimal, mais une virgule. Je ne comprends pas pourquoi tu veux passer la valeur du séparateur dans le fichier dans TextFileDecimalSeparator

Voir exemple donné par Microsoft ( https://msdn.microsoft.com/en-us/lib...ice.12%29.aspx):
Code:

1 2 Worksheets("Sheet1").QueryTables(1) _ .TextFileDecimalSeparator = ","