Sujet Précédent Sujet Suivant

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

A voir également:

3 réponses

Réponse 1 / 3
didibonf Messages postés 439 Statut Membre 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
Réponse 2 / 3
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
cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   786
 
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
cherif6com Messages postés 9 Statut Membre
 
Voilà le lien https://www.cjoint.com/?BLgbroWVoDK

Merci
0
Réponse 3 / 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