Problème de date sous excelRésolu

Question

Bonjour 
J'ai un probl&#232;me avec excel. J'ai une liste de fichiers de la forme 
nomdefichier-jour-mois-ann&#233;e.txt. Je dois r&#233;cup&#233;rer des donn&#233;es sur une p&#233;riode que je demande &#224; l'aide d'une boite de dialogue. J'ai 2 problemes 
d'une part je ne sais pas la commandepour la converison des fichiers txt en feuilles de calcul( ils osnt bien fait il y a des s&#233;parateurs de type : ), 
d'autre part je ne trouve pas comment faire une boucle sur les dates pour permettre d'automatiser l'aquisition de donn&#233;es.
La conversion automatique n'est pas tres importante, le plus importan c'est de pourvoir ajout a mon worbook les worksheet dont j'ai besoin pour la macro.

Merci 
Dan

PtitGrumo · Accepted Answer

Salut dan!

Pour r&#233;pondre a ta question j'ai juste besoin d'un compl&#233;ment d'info!

1 - Si je comprend bien, Tu doit ouvrir le fichier txt et lire ligne par ligne si l'enregistrement est bien dans l'interval de date voulu et si oui l'ajouter dans ta feuille Excel a la suite des autre c'est bien ca?

2 - Repr&#233;sise moi ton s&#233;parateur c'est bien ( ou : ?

a tout a l'heure

Ptitgrumo chante faux

yanndan · Answer

Yo

Premierement le fichier est de type CRdu-13-12-1256.txt
Dedans il ya des donn&#233;es comme &#231;a
jour: mois: ann&#233;es:total
12:2:1985:8541386541
j'aimerais donc avoir les premiers donn&#233;es de chaque lignes dans la premi&#232;re colonne.

Par ailleurs quand j'ouvre avec excel le fichier .txt et que je lui donne ne param&#232;tre ": ",il le fait tout seul mais mon but est de le faire automatiquement.

le s&#233;parateur est ":" ( 2 points)

Par ailleurs je ne trouve pas comment faire la boucle sur les jours entre les dates de d&#233;but et de fin pour l'aquisition.

Merci 
Dan

yanndan · Answer

reyo pardon PtiGrumo j'avais mal lu
c'ets sur le nom de fichier qu'est la restriction de l'intervalle de Date

merci 
Dan

PtitGrumo · Answer

Ok!

Pour la restriction sera tu le faire?

sinon pour ce que tu souhaite faire voici dans ton VBA excel quoi mettre!

Public Sub charger_fichier()
    Dim num     As Integer
    Dim lign    As Long
    Dim tmp     As String
    
    lign = 1
    num = FreeFile
    
    Open cheminFichier For Append As #a
    Do Until EOF(num)
        Line Input #num, tmp
        ActiveSheet.Cells(lign, 1) = tmp
        lign = lign + 1
    Loop
    Range("A1:A5").Select
    Selection.TextToColumns Range("A1"), xlDelimited, xlNone, False, False, False,_ False,  False, True, ":", Array(1, 1)
    Range("A1").Select
End Sub

Voila esp&#233;rant que tu comprendra sinon n'h&#233;site pas

A++

Je reste a ta dispo

Ptitgrumo &#224; chaud

PtitGrumo · Answer

dsl lol c pas 

Open cheminFichier For Append As #a

mais

Open cheminFichier For Append As #num

A++

Ptitgrumo le mancho

yanndan · Answer

yo merci monsieur
bon &#231;a ne marche pas direct mais on va regarder un peu pourquoi.
Sinonpour le probleme de date, il asuffit d'aller bouffer pour qu au retour &#231;a marche...

Merci encore
Dan

yanndan · Answer

derniere question 
qu'est ce que je dois mettre dasn cheminfichier un truc du style 
cheminfichier= "c:\lacestcool"
ou plutot cheminfichier="c:\lacestcool\12012004.txt"

et freefile est un int mais &#231;a ne devrait pas etre un string, comme le nom du fichier ou c'est une commande interne &#224; Excel.

Merci 
Dan

PtitGrumo · Answer

re!

c'est du type cheminfichier="c:\lacestcool\12012004.txt"

Pour ce qui es de freefile c une fonction interne qui renvoie un num&#233;ro (un index de fichier libre)

:O)

A++

Ptitgrumo bouche pleine de chamalo

yanndan · Answer

Ouais &#231;a devrait marcher. Si j'ai bien compris :
Open "c:\mesdoc\1203258851.txt" For Append As #num
'bonl&#224; on lui dit d'ouvrir le fichier
    Do Until EOF(num) ' boucle tant que pas en fin de fichier

        Line Input #num, tmp ' l&#224; on met dans tmp l   a ligne tel qu'est est dasn le fichier txt
        ActiveSheet.Cells(lign, 1) = tmp    ' l&#224; on recopie la ligne dasn la cellule
        lign = lign + 1   'onpasse &#224; la ligne suivante
    Loop
    Range("A1:A5").Select    ' pas clair . je pense que  l&#224; on dit  qu on va modifier les celleules de A1 &#224; A5
    Selection.TextToColumns Range("A1"), xlDelimited, xlNone, False, False, False,_ False,  False, True, ":", Array(1, 1)        'lm&#224; pas compris nonplus 
    Range("A1").Select  ' l&#224; meme combat
End Sub

 Qui plus est quand je le mets tel quel dans excel macro, il aime pas la ligne Selection.text.....

Merci encore de ta solicitude
Dan

yanndan · Answer

Ouais &#231;a devrait marcher. Si j'ai bien compris :
Open "c:\mesdoc\1203258851.txt" For Append As #num
'bonl&#224; on lui dit d'ouvrir le fichier
    Do Until EOF(num) ' boucle tant que pas en fin de fichier

        Line Input #num, tmp ' l&#224; on met dans tmp l   a ligne tel qu'est est dasn le fichier txt
        ActiveSheet.Cells(lign, 1) = tmp    ' l&#224; on recopie la ligne dasn la cellule
        lign = lign + 1   'onpasse &#224; la ligne suivante
    Loop
    Range("A1:A5").Select    ' pas clair . je pense que  l&#224; on dit  qu on va modifier les celleules de A1 &#224; A5
    Selection.TextToColumns Range("A1"), xlDelimited, xlNone, False, False, False,_ False,  False, True, ":", Array(1, 1)        'lm&#224; pas compris nonplus 
    Range("A1").Select  ' l&#224; meme combat
End Sub

 Qui plus est quand je le mets tel quel dans excel macro, il aime pas la ligne Selection.text.....

Par ailleurs, on ne devrait pas fermer le fichier &#224; la fin ?

Merci encore de ta solicitude
Dan

PtitGrumo · Answer

oui tu as raison surtout pas oublier de faire un "Close #num" bien vu 

Range("A1:A5").Select    ca veu dire tout simplement s&#233;lectionne moi les cellule de la A1 &#224; la A5 
Mais je m'a gour&#233;!

&#233;crit plutot  Columns("A:A").Select
ca veu dire s&#233;lectionne la colonne A

sinon la derni&#232;re ligne dit

sur ma s&#233;lection bascule mes valeur de la premi&#232;re colonne sur plusieurs colonne avec 1 nouvelle colonne pour un : rencontr&#233;

Voila ci sa te va!

A++

Ptitgrumo  le mazo

yanndan · Answer

Bon l&#224; c'est presque fini, il me dit juste qu 'il attend ":=" ....
sinon &#231;a &#224;l'air de compiler.
Question :pourquoi Array(1,1)?

Merci vraiment beaucoup, jamais j'aurais pu le faire tout seul.
Dan

PtitGrumo · Answer

ok alors essai ca!


Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":"

sinon pour le array c un peu dur a expliquer m&#234;me moi je m'y perd mais ne le met pas il sera par d&#233;faut!

c'est juste un moyen de param&#233;trer tes c&#233;llule si c'est du texte, du int, ....

A++

Ptitgrumo bobo

yanndan · Answer

D&#233;sol&#233; de ne aps avoir d&#233;j&#224; r&#233;ponde hier, mais &#231;a marche nickel, tout va bien 
Merci
Dan

Problème de date sous excel

14 réponses

Discussions similaires