Discussion :

[Daejung]

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 :

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

.TextFileDecimalSeparator = ","

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

Code :

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

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

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

Cordialement,
Kimy

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

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

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

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.

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

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

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

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