Sujet Précédent Sujet Suivant

Transformer un format Text en tableau excel

Fermé
cherif6com Messages postés 8 Date d'inscription jeudi 6 octobre 2011 Statut Membre Dernière intervention 8 octobre 2017 - 5 déc. 2012 à 15:36
cherif6com Messages postés 8 Date d'inscription jeudi 6 octobre 2011 Statut Membre Dernière intervention 8 octobre 2017 - 6 déc. 2012 à 01:18
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 419 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 21 mai 2019 96
Modifié par didibonf le 5/12/2012 à 15:56
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 8 Date d'inscription jeudi 6 octobre 2011 Statut Membre Dernière intervention 8 octobre 2017
Modifié par cherif6com le 5/12/2012 à 16:11
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 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 786
5 déc. 2012 à 17:50
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 8 Date d'inscription jeudi 6 octobre 2011 Statut Membre Dernière intervention 8 octobre 2017
6 déc. 2012 à 01:18
Voilà le lien https://www.cjoint.com/?BLgbroWVoDK

Merci
0
Réponse 3 / 3
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429
5 déc. 2012 à 18:16
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