IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Extraction date de .txt vers .xls [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    janvier 2010
    Messages
    43
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 43
    Points : 22
    Points
    22
    Par défaut RESOLU Extraction date de .txt vers .xls
    Bonjour, je vous expose mon problème :

    Ma mission importer des données de fichiers texte ayant toujours le même masque vers un tableau Excel le tout par VB... chaque fichier texte a une date d'edition differente ce qui est un des critere de remplissage de mon tableau.

    Problème 1 - Comment importer une date provenant d'un fichier .txt vers une cellule de classeur .xls cette cellule appartenant a une colonne regroupant mes dates

    Problème 2 - Lors de l'importation de cette date au format jj:mm:aaa j'aimerais savoir quelle fonction je dois employer pour qu'elle soit affichée dans un tableau pré-existant où le format de la date est jj/mm/aaaa

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
        If InStr(1, lign$, "Message-Date :") <> 0 Then
        'test sur la date
        Mid$(lign$, 24, 8) = datemvt
        'extraction de la date
          ???
            '--> formule pour importer datemvt dans le tableau
          ???
            '--> formule pour changer le format de la date
        End If
    Merci d'avance,


    PS : Ce billet est dans la lignée d'un autre portant sur mon projet d'etude
    http://www.developpez.net/forums/d86...t-vers-xls-vb/

  2. #2
    Membre à l'essai
    Profil pro
    Inscrit en
    janvier 2010
    Messages
    43
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 43
    Points : 22
    Points
    22
    Par défaut
    Une idée vient de me passer par la tête :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    datemvt = Format(dd, "00") & "/" & Format(MM, "00") & "/" & Format(yyyy, "0000")
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    datemvt.Value = Format(datemvt.Value, "dd/mm/yyyy")

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    janvier 2010
    Messages
    43
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 43
    Points : 22
    Points
    22
    Par défaut
    Apres quelques un petit test j'ai enfin trouve la solution a mon probleme je la post si ca peut aider quelqu'un :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
        datemvt$ = Mid$(lign$, 25, 8)
        'extraction de la date
        j$ = Mid$(datemvt$, 1, 2)
        m$ = Mid$(datemvt$, 4, 2)
        a$ = Mid$(datemvt$, 7, 2)
     
        date_new_format = j$ & "/" & m$ & "/20" & a$
        date_new_format_date = CDate(date_new_format)
        'changement du format d'import de la date
    OU

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
        datemvt$ = Mid$(lign$, 25, 8)
        'extraction de la date
        date_new_format = Mid$(datemvt$, 1, 2) & "/" & Mid$(datemvt$, 4, 2) & "/20" & Mid$(datemvt$, 7, 2)
        date_new_format_date = CDate(date_new_format)
        'changement du format d'import de la date
    Me permettant de retranscrire une date 18.01.10 en 18/01/2010.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Import .txt vers .xls par VB
    Par Loupire dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 28/01/2010, 10h46
  2. Importer données txt vers xls
    Par kikim78 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 13/12/2009, 14h22
  3. extraction txt vers xls
    Par doudou1 dans le forum VBScript
    Réponses: 10
    Dernier message: 10/07/2006, 15h37
  4. [VBA-E].txt vers .xls
    Par Empty_body dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 08/02/2006, 15h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo