Discussion :

[m@tix]

Bonjour,

Je dispose d'un fichier .txt dont l'une des colonnes comporte des dates de la forme Sep-11 (pour 01/09/2011), Feb-12 (pour 01/02/2012).

J'importe les données du fichier texte dans un classeur Excel via une macro.
Tout se passe bien, sauf pour les dates. En effet, après import, les dates obtenues sont les suivantes (pour les exemples cités ci-dessus par exemple) :

Sep-11 (pour 01/09/2011) devient 11/09/2012 (affichage 11-sept)
Feb-12 (pour 01/02/2012) devient 12/02/2012 (affichage 12-févr)

Du coup, forcément, ça me fausse tout dans la gestion de mes données... Comment puis-je arranger le problème ?

Voici le code que j'utilise :

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
33
34
35
Set wk1 = ThisWorkbook
 
    fichier = "https://***/fichier_texte.txt"
 
 
    'on efface les précédentes données importées
 
    With wk1.Sheets("Feuil1")
 
        derlign1 = .Range("A1").SpecialCells(xlLastCell).Row
        .Range("A3:G" & derlign1).ClearContents
 
    End With
 
 
 
    'ouvre le fichier txt
    Workbooks.Open fichier
 
    Set wk2 = Workbooks("fichier_texte.txt")
 
    With wk2.Sheets(1)
 
 
        derlign2 = .Range("A1").SpecialCells(xlLastCell).Row
 
        .Range("A2:G" & derlign2).Copy
 
 
    End With
 
 
    wk1.Sheets("Feuil1").Cells(3, 1).PasteSpecial
 
    wk2.Close

Je rajoute que lorsque je fais un simple copier/coller à la main à partir du fichier texte, je ne rencontre pas ce problème...

[kiki29]

Salut, de la lecture ici

[m@tix]

Merci pour le lien. Je viens de le parcourir, mais je n'ai pas trouvé la solution à mon problème.. Je pensais peut-être regarder du côté des options régionales, mais je ne trouve rien qui correspond... C'est réellement problématique dans le sens où mes données sont toutes faussées !

En espérant que quelqu'un finira par trouver d'où peut venir le problème. Je pense avoir cherché partout..

[kiki29]

Salut, via une recherche

[m@tix]

Merci kiki29. J'ai regardé les résultats de cette recherche, mais rien ne correspond à mon problème.

J'essaie de reformuler plus précisément.

D'un côté j'ai un fichier texte qui, en l'ouvrant avec Excel via la macro que j'ai mise, comporte des dates colonne G : sep-11, oct-11, nov-11, dec-11, jan-12...

En exécutant ma macro en pas à pas, je m'aperçois que ces dates se "transforment" en 11/09/2012, 11/10/2012, 11/11/2012, 11/12/2012, 12/01/2012..

Du coup, même en essayant de convertir le format US/FR une fois le classeur ouvert, ça ne résout pas le problème..

[kiki29]

Salut, en décomposant au maximum, à adapter à ton contexte.
il y a plus concis.
En bouclant de la 1ere ligne à la dernière

Code :

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

1
2
3
4
5
Dim i As Long
Dim v As Double
        v = CDbl(CDate(Cells(i, x)))
        Cells(i, x) = v
        Cells(i, x).NumberFormat = "dd/mm/yyyy"