Transformer un format Text en tableau excel

cherif6com Messages postés 9 Statut Membre -  
cherif6com Messages postés 9 Statut Membre -
Bonjour,

J'ai une forme spéciale que je dois traiter en forme tableau avec collomne mais je n'y arrive pas. Je veux chaque ligne sera classé dans une collomne avec les meme infos dans les meme collomne, exp: la date de toute les bloc seront dans la meme collomne. Pourriez vous m'aider a faire un macros VBA?

La forme du fichier texte est:

7409 ***
SFX1196
PLMN-PLMN/BSC-324586/BCF-196
AIR CONDITIONNER
Started 2012-11-10 17:06:11 Cancelled 2012-11-10 17:26:02

7409 ***
SFX1196
PLMN-PLMN/BSC-324586/BCF-196
AIR CONDITIONNER
Started 2012-11-10 16:16:38 Cancelled 2012-11-10 16:29:29

7409 ***
SFX1196
PLMN-PLMN/BSC-324586/BCF-196
AIR CONDITIONNER
Started 2012-11-10 15:42:05 Cancelled 2012-11-10 15:53:06

3 réponses

  1.
    didibonf Messages postés 418 Date d'inscription   Statut Membre Dernière intervention   96
     
    Bonjour,
    Si les blocs d'informations ont le même nombre de lignes et sont séparés par le même nombre de lignes tu va pouvoir faire une macro qui récupère les infos et les met sur une ligne puis passe à la ligne suivante pour le bloc suivant.
    Est-ce que tu t'y connais un peu en VBA ?
    Envoie un fichier pour que l'on puisse d'aider dans le détail
    0
  2. cherif6com Messages postés 9 Statut Membre
     
    j'ai travaillé un projet ya 5 ans avec VBA mais j'ai oublié,
    j'ai pas pu joindre le fichier,
    mais voila son contenu texte:

    7409 ***
    SFX1196
    PLMN-PLMN/BSC-324586/BCF-196
    AIR CONDITIONNER
    Started 2012-11-10 17:40:43 Cancelled 2012-11-10 18:04:35

    7409 ***
    SFX1196
    PLMN-PLMN/BSC-324586/BCF-196
    AIR CONDITIONNER
    Started 2012-11-10 17:06:11 Cancelled 2012-11-10 17:26:02

    7409 ***
    SFX1196
    PLMN-PLMN/BSC-324586/BCF-196
    AIR CONDITIONNER
    Started 2012-11-10 16:16:38 Cancelled 2012-11-10 16:29:29

    Ces 3 blocs, je les veux en 3 lignes et les infos dans les diferentes collomnes, comme ça

    Alarm Site .......
    7409 SFX1196 ......
    0
    1. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
       
      Bonjour,
      jondre un fichier,

      Comment faire :

      Va sur ce site : > sur ce site, Cjoint

      Va sur parcourir et cherche dans ton PC le ficher à transmettre.

      Clique sur l'option qui te semble nécessaire pour la durée.

      Clique sur le bouton [Créer le lien Cjoint ]

      Image test :https://www.cjoint.com/?BFqtoT9eR8I

      Le site va alors te donner un lien comme ci-dessus

      Lien que tu transmets dans ton prochain post.
      0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour à tous

    un début de réponse 

    Option Explicit

Const chemin = "D:\che\"
Const nomF = "Alarm.txt"

Private Sub btOK_Click()
Dim fic, buffer
Dim li As Long, i As Long
  'nom fichier
  fic = chemin & nomF
  li = 1
  i = 0
  Open fic For Input As #1
    Do While Not EOF(1)
      'lecture enregistrement
      Line Input #1, buffer
      'ecriture enregistrement
      i = i + 1
      Select Case i
        Case 1: Cells(li, 1).Value = Left(buffer, 4)
        Case 2: Cells(li, 2).Value = buffer
        Case 3: Cells(li, 3).Value = buffer
        Case 4: Cells(li, 4).Value = buffer
        Case 5: Cells(li, 5).Value = buffer
        Case 6: i = 0
      End Select
      If i = 0 Then li = li + 1
    Loop
  Close
End Sub

    bonne suite
    0