pas de reconnaissance date lors d'import

Version imprimable

03/05/2008, 14h49
Pierre845

pas de reconnaissance date lors d'import

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
03/05/2008, 18h13
Gorfael

Salut Pierre845

Citation:

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+
03/05/2008, 23h17
Pierre845

c'est ce que j'ai fait en premier, mais ça ne marche pas
04/05/2008, 00h04
Didier Gonard

Bonsoir essayes avec ça :

Code:

XXX.PasteSpecial Format:="Texte"

cordialement,

Didier
04/05/2008, 07h35
ucfoutu

Citation:

Envoyé par Pierre845

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

Code:

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 ? ;)

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:

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:

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

04/05/2008, 15h25
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:

1 2 Write #1 "toto", "titi" write #1 "machin", "chouette", "truc"
Celà ne convient pas pour ce que tu veux en faire ensuite .
04/05/2008, 15h54
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
04/05/2008, 18h29
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) ...;)
04/05/2008, 19h16
Didier Gonard

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

cordialement,

Didier
04/05/2008, 20h44
ucfoutu

Citation:

Envoyé par 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) ...;)
08/05/2008, 14h40
Pierre845

Citation:

Envoyé par Ormonth

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.