Import TXT dates mal reconnues

Version imprimable

04/02/2015, 20h10
roadrunner34

Import TXT dates mal reconnues

Bonjour
j'importe un fichier txt dont certaines colonnes comportent des dates au format xx/xx/xxxx. (sous excel 2010)
Le problème c'est que certaines cellules sont bien interprétés d'autres sont considérées comme du texte.
dans ma macro d'import, même si je change le format de la colonne ça ne change rien
pour que la valeur soit validée il me faut faire un double clic sur la cellule puis valider pour qu'excel prenne la valeur en date.

je ne vois qu'une solution
compter le nombre de ligne X
et faire exécuter à excel une multiplication par 1
de la ligne 2 à la ligne x
pour chaque cellule NON vide
valeur = valeur *1

quelqu'un peut-il me donner le code svp ?

merci
04/02/2015, 20h30
parmi

Bonjour,

Il faudrait voir comment tu importes ces fichiers.
En utilisant le DataObject d'Excel, ça pourrait régler le problème.

J'ai parcouru le WEB et il semble que ce problème soit récurant , mais je ne trouve pas de solution
d'où ma question

J'ouvre le fichier comme ça :

Code:

1
2
3
4
5
6
7
8
9
Workbooks.OpenText Filename:="C:\test\test.txt", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1)), TrailingMinusNumbers:=True

04/02/2015, 22h59
parmi

Regarde le lien ICI

J'y ai mis un exemple d'utilisation du DataObject.
Ça prend une référence à Microsoft Forms 2.0

Comme le fichier passe par le "clipboard" d'Excel, celui-ci réussit souvent à régler les formats par lui-même...
06/02/2015, 11h06
roadrunner34

dataobject

Merci Parmi
mais je ne connais pas la méthode et je ne me sens pas de l'appliquer, car ça voudrait dire tout récrire
en effet ma macro d'import fait toute une série d'opérations à la suite de l'import

même si ce n'est pas très "propre" mon idée est de multiplier par un chaque cellule contenant une valeur
excel l'affiche instantanément en date

d'où ma demande il me faudrait un truc de ce genre:

de la ligne 2 à x
pour chaque cellule NON vide
cells.value = cells.value *1

Le but de mon exemple était d'éviter les manipulations de cellules, mais bon, si tu préfères...
Après l'ouverture du fichier texte, quelque chose comme ceci devrait faire l'affaire:
Code:

1 2 3 4 5 6 7 Dim I as long, nbLignes as Long With Sheets("TaFeuille") nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 2 to nbLignes .Cells(I, TaColonne) = .Cells(I, TaColonne) * 1 'Ajouter d'autres colonnes au besoin sous cette ligne Next End With

06/02/2015, 11h50
roadrunner34

methode cell incompatible

J'avais essayé cells() *1 :
Excel renvoie : incompatibilité de type a cause du *1.
en prime dans ce cas là, ça s'appliquerai à toutes les cellules y compris les vides :?

Code:

1
2
3
4
5
6
7
8
Dim I as long, nbLignes as Long
With Sheets("TaFeuille")
   nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row
   For i = 2 to nbLignes
      If .Cells(I, TaColonne) <> "" and IsNumeric(.Cells(I, TaColonne)) Then _
      .Cells(I, TaColonne) = .Cells(I, TaColonne) * 1 'Ajouter d'autres colonnes au besoin sous cette ligne
   Next 
End With

06/02/2015, 12h19
Marc-L

Bonjour, bonjour !

Citation:

Envoyé par roadrunner34

J'ai parcouru le WEB et il semble que ce problème soit récurant

Oui c'est un problème récurrent situé entre la chaise et le clavier, Excel n'y étant pour rien, juste un mauvais code …
Pourtant en activant le Générateur de macros et en répondant correctement à l'Assistant d'importation,
le code est livré sur un plateau !

En joignant un fichier texte source à importer, on pourrait plus facilement corriger ce code d'importation.

__________________________________________________________________________________________________
Tous unis, tous Charlie
06/02/2015, 12h46
kiki29

Salut, à lire Comprendre et gérer les dates sous Excel et en VBA
06/02/2015, 13h18
roadrunner34

ùauvaise idée

Merci parmi
ta réponse est bonne.
mais ça ne fonctionne pas

si dans la feuille on ouvre la cellule et on valide elle passe au bon format (ou si on multiplie par un)
autant en macro, ça ne passe pas. il considère la valeur comme tu texte, d'où type incompatible :(
je ne vois pas comment m'en sortir !
surtout que c'est 5 % des cellules qui ont se souci . mystère
06/02/2015, 13h29
Marc-L

Non, rien de mystérieux ni de compliqué, juste un mauvais code d'importation par méconnaissance d'Excel et du VBA !

Lire les posts #9 & #10 …

Bonjour,

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
Sub Test()
Dim oFSO As Object
Dim T()
Dim F
Dim Txt As String
Dim I As Long
Set oFSO = CreateObject("Scripting.FileSystemObject")
Fichier = "C:\RepTest\test.txt"
If oFSO.GetFile(Fichier).Size = 0 Then Exit Sub
Txt = oFSO.OpenTextFile(Fichier, 1).ReadAll
Set oFSO = Nothing
Txt = Replace(Txt, Chr(13), "")
F = Split(Txt, Chr(10))
ReDim T(UBound(F), 10)
For I = 0 To UBound(F)
    T(I, 0) = Mid(F(I), 1, 4)
    T(I, 1) = Mid(F(I), 5, 4)
    T(I, 2) = Mid(F(I), 9, 4)
    T(I, 3) = Mid(F(I), 13, 4)
    T(I, 4) = Mid(F(I), 17, 4)
    T(I, 5) = Mid(F(I), 21, 4)
    T(I, 6) = Mid(F(I), 25, 4)
    T(I, 7) = Mid(F(I), 29, 4)
    T(I, 8) = Mid(F(I), 33, 4)
    T(I, 9) = Mid(F(I), 37, 4)
    T(I, 10) = Format(Replace(Mid(F(I), 41, 10), """", ""), "yyyy-mm-dd")
Next
ActiveSheet.Range(Range("A1"), Range("A1").Offset(UBound(F), 10)) = T
End Sub

merci pour votre aide
grâce au lien de kiki j'ai trouvé une solution qui fonctionne
mais qui est très longue car ça prend en compte TOUTE la colonne et pas seulement mes 4000 lignes
mais au moins ça fonctionne
la voici tel que dans le tuto très bien fait
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AppliTuto() With Columns("D:D") .Insert Shift:=xlToRight '.select '' ne pas mettre dans le code surtout, ''à activer pour compréhension de la suite si besoin... ''le with column("D:D") pointe vers la colonne E apparente suite à l'insertion, ''mais qui représente toujours l'objet d'origine à savoir la colonne pointée via l'instruction With... .Offset(0, -1).FormulaR1C1 = "=IF(RC[1]<>"""",RC[1]*24/24,"""")" .Offset(0, -1).NumberFormat = "m/d/yyyy" .Offset(0, -1).Copy .Offset(0, -1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .Delete End With End Sub
je vais regarder les autres méthodes néanmoins car celle ci est lourde

11/12/2015, 09h19
roadrunner34

plus simple

Bonjour à tous
Voici la solution la plus simple qui m'a été donné :
après le code d'import créé par Excel, il suffisait d'ajouter ",Local:= True après TrailingMinusNumbers:=True."
les dates sont alors bien reconnues !!
11/12/2015, 10h47
Marc-L

Oui aussi … Mais en utilisant FieldInfo comme dans le post #3 il n'était pas compliqué d'indiquer le bon format de date !
Rien qu'en répondant bien à l'assistant de cette méthode …