Discussion :

[Pierre845]

Bonjour,

J'ai un problème lors de l'importation de données texte, à savoir que certaines données sont reconnues en tant que dates (par exple 1-12 donne 01/12/2008), ce que je souhaite éviter.

Il y a .WebDisableDateRecognition qui existe lors d'un import de page web, mais par contre je n'ai rien trouvé concernant l'import de données d'un fichier .txt (j'ai naïvement essayé .TextFileDisableDateRecognition et .DisableDateRecognition dans les options d'import, mais sans succès).

Avez-vous une solution ?

Merci

[Gorfael]

Salut Pierre845

J'ai un problème lors de l'importation de données texte, à savoir que certaines données sont reconnues en tant que dates (par exple 1-12 donne 01/12/2008), ce que je souhaite éviter.

Le plus simple : mets ta/tes colonnes de réception en format texte

A+

[Pierre845]

c'est ce que j'ai fait en premier, mais ça ne marche pas

[Didier Gonard]

Bonsoir essayes avec ça :

Code :

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

 XXX.PasteSpecial Format:="Texte"

cordialement,

Didier

[ucfoutu]

J'ai un problème lors de l'importation de données texte, à savoir que certaines données sont

Code :

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

reconnues en tant que dates

(par exple 1-12 donne 01/12/2008), ce que je souhaite éviter.

Je crois que je devine...
Qu'appelles-tu donc "données texte" ?
S'agit-il d'un fichier texte structuré en base de données ?
Si oui : quelle est sa structure exacte et comment lis-tu, toi, son contenu ?

[Pierre845]

Salut ucfoutu,

c'est un fichier texte structuré comme ceci:
"x1 - x2","x3 - x4","x5 - x6" (retour à la ligne)
"y1 - y2","y3 - y4" (retour à la ligne)
...

C'est une structure assimilable à une base de données, mais ce n'en est pas une à proprement parlé.

Pour importer, je fais:

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
With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & HDD_letter & path_fichier, Destination:=Range("A1")  )
        .Name = nom_du_fichier
        .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
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Si je ne trouve pas de solution je vais être obligé de faire :

Code :

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

1
2
3
4
5
6
For Each c In Selection       
        If IsDate(c) = True Then
            Val1 = Day(c)
            Val2 = Month(c)
        End If
Next

Ce qui est un peu lourd quand même..

Je ne comprends pas pourquoi .WebDisableDateRecognition n'existe que pour les pages Web et pourquoi il n'y a pas une sorte de .TextFileDisableDateRecognition pour les fichiers texte

[ucfoutu]

Ce que tu me montres n'est pas la structure d'un fichier texte structuré en base de données, mais un fichier texte "plat" écrit à l'aide de Write !

genre :

Code :

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

1
2
Write #1 "toto", "titi"
write #1 "machin", "chouette", "truc"

Celà ne convient pas pour ce que tu veux en faire ensuite .

[Pierre845]

ça arrange pas mon affaire ça !

ce qui est étonnant c'est qu'en formatant les cellules en format texte avant l'import, j'ai quand même des dates qui apparaissent lors de l'import

et je reste aussi dégouté qu'on puisse importer une page web sans reconnaissance de date, et pas faire pareil pour les fichiers texte

j'ai utilisé ma solution de repli, pas très propre pour mon code, et donc le sujet reste ouvert
car je me dis que ce n'est pas possible de ne pas trouver une solution à un problème de formatage si bénin

[ucfoutu]

Je reste malgré tout un peu perplexe quant à la transformation spontanée d'une chaîne de caractère en date alors que tu dis n'avoir pas demandé cette transformation...

J'aimerais réellement voir un bout de ce fichier texte (par copier-coller depuis notepad) ...

[Didier Gonard]

Bonsoir,
Pas possible de jouer sur une constante de TextFileColumnDataTypes ?
genre xlTextFormat (valeur= 2)


cordialement,

Didier

[ucfoutu]

Je reste malgré tout un peu perplexe quant à la transformation spontanée d'une chaîne de caractère en date alors que tu dis n'avoir pas demandé cette transformation...

J'aimerais réellement voir un bout de ce fichier texte (par copier-coller depuis notepad) ...

[Pierre845]

Bonsoir,
Pas possible de jouer sur une constante de TextFileColumnDataTypes ?
genre xlTextFormat (valeur= 2)

cordialement,

Didier

Merci Didier !

En faisant un xlTextFormat, je n'ai plus de date mais bien des chiffres comme voulu.