Importer des données ASC sur Excel avec conditions

salut

je possède un fichier .asc et je veux importé ses données sur Excel

le fichier contient plusieurs colonnes (dates heures durées message)

moi je veux extraire certain données selon une condition

Merci de votre aide

mouna

Merci

1 - de mettre une partie du fichier ASC en pièce jointe

2 - de préciser quelles données et à quelle condition.

bonjour,

je m'excuse pour le retard

pour mon fichier asc

le premier fichier:

plan TTK

CMD ONBARTTK

TIMETAG="2015/10/25 20:15:21.931"

NUMBARRE="TTk"

ENDCMD

CMD OFFBARTTTK

TIMETAG="2015/10/25 20:23:08.005"

NUMBARRE="TTk"

ENDCMD

END

le deuxième fichier :

logs

plan 2015/09/03 12:00:00.000 to 2015/09/05 00:00:00.000

******************************************************************************************

Beginning End Duration (s) Poste(s)

******************************************************************************************

2015/09/03 20:25:20.934 2015/09/03 20:34:51.519 570.6 poste1

2015/09/03 22:01:44.589 2015/09/03 22:12:19.376 634.8 poste1

2015/09/04 09:59:03.343 2015/09/04 10:10:21.202 677.9 poste1

2015/09/04 11:37:53.402 2015/09/04 11:44:33.677 400.3 poste1

2015/09/04 20:57:48.494 2015/09/04 21:08:48.219 659.7 poste1

2015/09/05 08:56:35.882 2015/09/05 09:04:47.411 491.5 poste1

en résultat je veux avoir ce Fichier

merci

bonjour,

j'ai importer les données de mes fichiers ASC sur Excel, mais j'ai pas su comment introduire mes conditions pour avoir mon tableau

voici la partie du code qui permet d'extraire les données

      Sub Analyse()
        Dossier$ = "C:\Users\USER\Desktop\fichier\"
        Fichier$ = Dir(Dossier & "*.asc")

        If Fichier <> "" Then
            Colonne = -1
            Cells.ClearContents
            Application.ScreenUpdating = False
        End If

        While Fichier <> ""
            Workbooks.OpenText Dossier & Fichier, 932, 1, xlDelimited, Tab:=True, _
                      FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

            Colonne = Colonne + 2
            ActiveWorkbook.ActiveSheet.[A1:B300].Copy ThisWorkbook.ActiveSheet.Cells(1, Colonne)
            ActiveWorkbook.Close
            Fichier = Dir
        Wend

        Application.ScreenUpdating = True
    End Sub