Import fichier .txt et format de date

Version imprimable

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:

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

09/05/2012, 17h21
kiki29

Salut, de la lecture ici
09/05/2012, 17h42
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.. :cry:
09/05/2012, 17h56
kiki29

Salut, via une recherche
09/05/2012, 18h30
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.. :(

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

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"

10/05/2012, 08h36
fring
Bonjour,

Sans répondre à la question, je voudrais juste apporter une modification à ton code.

Pour rechercher la dernière cellule de la colonne A, je n'utiliserais pas la méthode SpecialCells(xlLastCell) pour deux raisons :
1. même en précisant la colonne, cela va te renvoyer la dernière cellule utilisée de la feuille et tu ne trouveras donc pas forcément la dernière ligne d'une colonne bien précise
  Tu peux faire le test avec une valeur en A5 et une autre en B10, Range("A1").SpecialCells(xlLastCell).Row te renverra 10 comme résultat.
2. tant que le classeur n'a pas été sauvegardé, si tu supprimes (dans l'exemple ci-dessus) la valeur en B10, qu'il ne te reste plus que celle en A5, SpecialCells(xlLastCell).Row te renverra malgré tout 10 comme résultat
pour rechercher la dernière cellule d'une colonne il vaut donc mieux utiliser la méthode suivante :

Code:

derlign1 = .Range("A" & Rows.Count).End(XlUp).Row
12/05/2012, 00h53
AlainTech

Bonjour à tous,

Personnellement, je ne vois pas d'autre solution que de faire l'import ligne par ligne en ajoutant "1-" devant chaque date.

Et encore, je ne sais pas comment faire interpréter correctement les mois en anglais.

Si j'ai un peu de temps, je ferai un test.
Mais plus cette nuit...
01/11/2013, 10h51
navyg

le sujet est peut-être un peu vieux, mais j'ai trouvé une solution à condition de transformer les noms de mois anglais en mois français sur 4 caractères
(exemple feb en févr) sinon la fonction cdate ne fonctionne pas
une fois cette transformation effectuée à l'importation grâce à une petite matrice par exemple, il est possible d'écrire :

si chaine="sept-11" (ou chaine="févr-12")

Code:

Cells(x, y) = Format(CDate("01-" + chaine), "MM-yyyy")

ce qui donne :
sept-11
févr-12

et avec le code suivant :

Code:

Cells(x, y) = CDate("01-" + chaine)

cela donne :
01/09/2011
01/02/2012

espérant avoir pu aider

Bonjour,

Et si tu essayais une autre méthode avec le DataObject...
Est-ce que ça fonctionne mieux ?

Pour utiliser le DataObject, il faut cocher la référence Microsoft Forms 2.0 Object Library

ex:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim strTemp as String Dim Fichier As String Dim MyDataObject As DataObject Fichier = "https://***/fichier_texte.txt" Open Fichier For Binary As #1 strTemp = Space$(LOF(1)) Get #1, , strTemp Set MyDataObject = New DataObject MyDataObject.SetText strTemp MyDataObject.PutInClipboard Range("A1").PasteSpecial Close #1 MyDataObject.Clear Set MyDataObject = Nothing

avec la fonction de remplacement du mois, ça marche bien.
j'ai indiqué sur la même ligne les 3 résultats différents selon le traitement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
en = Array("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec")
fr = Array("janv", "févr", "mars", "avri", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
Cells.Clear
'le fichier test.txt contient les lignes de date genre :
'sep-11 etc...
'feb-12 etc...
Open "test.txt" For Input As #1
i = 1
Do While Not EOF(1)
    Line Input #1, chaine
    ladate = Mid$(chaine, 1, 6)
    ladate = Replace(ladate, Mid$(ladate, 1, 3), fr(Application.Match(Mid$(ladate, 1, 3), en, 0) - 1))
    Cells(i, 1) = ladate
    Cells(i, 2) = Format(CDate("01-" + ladate), "MM/yyyy")
    Cells(i, 3) = CDate("01-" + ladate)
    i = i + 1
Loop
Close #1
 
End Sub

Citation:

Envoyé par parmi

Pour utiliser le DataObject, il faut cocher la référence Microsoft Forms 2.0 Object Library

et c'est où pour cocher ça dans excel ?

01/11/2013, 14h06
parmi

Quand tu es dans le code (Alt-F11), tu vas dans Outils / Références et tu coches la référence que tu veux utiliser.
01/11/2013, 14h29
navyg

merci
j'allais juste indiquer que j'avais trouvé ;o)

en fait ta proposition ne règle pas le problème de transformation de la date lors de la copie dans la feuille
il faut absolument traiter la chaine, quelle que soit la manière de faire le copier coller
merci quand même, je ne connaissais pas cette méthode de copier/coller mais je la trouve bien plus compliquée que ma méthode pour remplir les cellules ;o)