macro d'importation txt 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 ""E:\fevrier08" par exemple, 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.

Je joint le fichier excel avec deux fichiers txt.

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

 

[cbea]

Re : macro d'importation txt et date

Bonjour jopont,

En mettant les fichiers dans le répertoire "Mes documents", cela ne fonctionnait pas non plus chez moi.

Après plusieurs recherches, je pense avoir trouvé la solution.
Je te redonne une nouvelle version dans laquelle j'ai apporté une modification dans la procédure "UserForm_Initialize" en ajoutant les lignes suivantes :

        .MatchTextExactly = False
        .FileType = msoFileTypeAllFiles

J'ai refait des tests chez moi à partir du répertoire "Mes documents" et les fichiers "*.txt" apparaîssent dans la liste.

Peux-tu refaire un test avec ce fichier ?

Merci

 

[MJ13]

Re : macro d'importation txt et date

Bonjour à tous

Si Jopont est sous XL2007, il aura un problème.

 

[jopont]

Re : macro d'importation txt et date

J'ai fait l'essai et ça ne fonctionne pas.
Cela vient-il du fait d'être sous excel 2007?
Si oui est-il possible de pailer à cela

 

[cbea]

Re : macro d'importation txt et date

Bonjour jopont,

Je vais regarder ce que je peux faire d'autre et je te tiens au courant.

 

[jopont]

Re : macro d'importation txt et date

ok merci pour l'aide

 

[cbea]

Re : macro d'importation txt et date

Bonjour jopont,

Voici une nouvelle version.

 

[jopont]

Re : macro d'importation txt et date

merci cbea. d'autre part j'ai un petit probleme avec une fonction utilisant bdmoyenne mais le problème est que je ne peux pas joindre de fichier il fait 220 ko

 

[cbea]

Re : macro d'importation txt et date

Tu peux le déposer sur le site Cijoint.fr et fournir le lien que le site t'aura donné.

Merci

 

[jopont]

Re : macro d'importation txt et date

j'utilise la fonction suivante :

=ARRONDI(BDMOYENNE(BD_EGO;INDEX(BD_EGO;1;EQUIV(cho ix_heurea;bd!1:1;0));B2:B3:jours_ouvrés);0)


"choix_heurea" correspond à des intervalle selection dans liste déroulante : 00 h à 01 h, 01 h à 02h...

La fonction fonction mais pas pour tous les choix. sur certain elle me renvoie #DIV/0

de quoi cela peut-il venir ?

adresse du fichier
Cijoint.fr - Service gratuit de dépôt de fichiers.
merci

 

[jopont]

Re : macro d'importation txt et date

Je n trouve pas la solution

 

[Guest]

Re : macro d'importation txt et date

re bonjour Jo,

voici une formule qui ne tient pas compte des zéros:

'=MOYENNE(SI(DECALER(BD_EGO;;EQUIV(choix_heurea;bd!1:1;0);;1)<>0;DECALER(BD_EGO;;EQUIV(choix_heurea;bd!1:1;0);;1)))'

C'est une formule matricielle à valider avec CTRL+MAJ+ENTER

A bientôt

 

[jopont]

Re : macro d'importation txt et date

mais je veux tenir compte des zéro pour ma moyenne.
je dois aussi mettre une formule pour trouver les minimum.
Je n'ai pas non plus le choix sur le critère jours ouvrés ( 0,ou 1)
merci

 

[jopont]

Re : macro d'importation txt et date

On m'a dit que le problème vient de ma zone de critère. B2:B3:jour_ouvrés.

Pourtant dans mon fichier j'ai déjà utiliser ce critère et ça fonctionne