macro import de fichiers et date

jopont

XLDnaute Impliqué
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

XLDnaute Barbatruc
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
Code:
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
Code:
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
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.
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
637

Membres actuellement en ligne

Statistiques des forums

Discussions
314 079
Messages
2 105 478
Membres
109 378
dernier inscrit
saddasdsad