Transformer un format Text en tableau excel
cherif6com -  
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

  • Votes
  • Date
  • Date décroissante
  1. didibonf
    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
    1. cherif6com Auteur
      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 ......
      1. cbauf Contributeur
        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.
    2. ccm81
      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

      Discussions similaires

      Comment annuler mise en forme tableau
      etiennette57

      8 réponses