macro import de fichiers et date

[jopont]

Bonjour

j'utilise la macro suivante pour importer plusieurs fichiers txt en même temps dans une feuille excel.

Mon problème est le suivant, lorsqu'un j'importe dans le répertoire ""G:\fev08", ou il y a autant de fichiers que de jours (0102.txt,0202.txt ...) l'importation ne se fait pas dans l'ordre des jours.

D'autre part les données importées des fichiers txt sont parfois erronées, j'ai des cellules avec date qui sont parfois fausses. exemple pour le 10/02/08 08:00, la donnée importée donne 02/10/08 08:00. Il y a une inversion sur certain jour.

merci pour votre aide

La macro :

Sub ouvrir()
Dim Directory As String, File As String, Temp As String
Dim NumRow As Long, NumCol As Integer
Dim FF As Integer, I As Integer

Directory = "G:\février08\"
File = Dir(Directory & "*.txt")
NumRow = ActiveCell.Row
NumCol = ActiveCell.Column
With ActiveSheet
FF = FreeFile
Do While File <> ""
Open Directory & File For Input As #FF
Do While Not EOF(FF)
Line Input #FF, Temp
Table = Split(Temp, vbTab)
For I = 0 To UBound(Table)
.Cells(NumRow, NumCol + I) = Table(I)
Next
NumRow = NumRow + 1
Loop
Close #FF
File = Dir
Loop
End With
End Sub

 

[MJ13]

Re : macro import de fichiers et date

Bonjour

Le mieux serait de faire une macro qui va ouvrir chaque fichier dans l'ordre des jours.

Pour l'inversion des dates, il s'agit d'un problème connu sous Excel. Il vaut mieux déjà déclarer tes variables dates en dates puis faire une extraction sur la date suivant le format désiré (tu peux utilser

Dim madate as date
madate2=format(Madate,"dd/mm/yyy")

et voir ce que te retourne Excel
ou faire une extraction. Si madate est sous la forme jj/mm/yyyy

ex

MAdate2=left(madate,2)&"/"& mid(madate,4,2)&"/"&right(madate,4)

Mais la seul des essais sont à faire en focntion du type de données que tu as.

 

[jopont]

Re : macro import de fichiers et date

tout d'abord merci pour ces éléments de réponses.

Mais quelle macro pour ouvrir les fichiers dans l'ordre des jours.

D'autre part pour la date, j'ai juste à insérer le code dim ma date ... dans ma macro?
merci

 

[MJ13]

Re : macro import de fichiers et date

Bonjour,

Pas trop le temps en ce moment.
Essaie de joindre 2 ou 3 fichiers txt qui se suivent avec la date en partant d'un premier jour de mois sans données confidentielles de moins de 50 ko et un fichier excel avec ce que tu veux (si tu as XL2007, sauvegarde ton fichier en compatible Xl97-2003).

Ensuite tu auras plus de chance d'avoir des réponses.

Sinon tu peux poster sur le forum Excel car ici, il y a moins de personnes qui voient ton post.

 

[jopont]

Re : macro import de fichiers et date

Ok merci j'ai créer un post dans le forum excel à l'adresse suivante avec un fichier.

https://www.excel-downloads.com/threads/macro-dimportation-txt-et-date.94841/

merci