Comment séparer colonne AAAAMMJJHHMMSS en 2 colonnes au format date et heure

Thierry.dev à dit:

Bien entendu les autre colonnes du fichier restent telle quelle.

Cliquez pour agrandir...

Option Explicit

Sub import()
Dim ChNomF, TSpl$(), ZStr$, L&, C&, TRés(1 To 1000, 1 To 6)
ChNomF = Application.GetOpenFilename("Text Files (*.*), *.*", , "Sélectionner un fichier")
If VarType(ChNomF) <> vbString Then Exit Sub
Open ChNomF For Input As #1
Do While Not EOF(1)
  Line Input #1, ZStr
  TSpl = Split(ZStr, ",")
  L = L + 1
  TRés(L, 1) = Left$(TSpl(0), 8)
  TRés(L, 2) = Right$(TSpl(0), 6)
  For C = 3 To 6: TRés(L, C) = TSpl(C - 1): Next C
  Loop
Close #1
Feuil1.[A1:F1000].Value = TRés
End Sub

M12 à dit:

Bonjour,

A tester

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.

VB:

Option Explicit

Sub import()
Dim ChNomF, TSpl$(), ZStr$, L&, C&, TRés(1 To 1000, 1 To 6)
ChNomF = Application.GetOpenFilename("Text Files (*.*), *.*", , "Sélectionner un fichier")
If VarType(ChNomF) <> vbString Then Exit Sub
Open ChNomF For Input As #1
Do While Not EOF(1)
  Line Input #1, ZStr
  TSpl = Split(ZStr, ",")
  L = L + 1
  TRés(L, 1) = Left$(TSpl(0), 8)
  TRés(L, 2) = Right$(TSpl(0), 6)
  For C = 3 To 6: TRés(L, C) = TSpl(C - 1): Next C
  Loop
Close #1
Feuil1.[A1:F1000].Value = TRés
End Sub

Cliquez pour agrandir...

Thierry.dev à dit:

Bonjour aux fans d'excel,
Quelqu’un pourrait-il m'aider.
J'ai un appareil de pointage horaire qui me génère un fichier log tel que joint à cette discussion.
La première colonne concerne la date et l'heure qui forment 1 bloc au format AAAAMMJJHHMMSS.
A partir de ce fichier log brut, je désire créer un fichier excel qui sépare la date et heure en 2 colonnes AAAAMMJJ en colonne 1 et HHMMSS en colonne 2.
Bien entendu les autre colonnes du fichier restent telle quelle.

Un grand merci d'avance.
Thierry.

Cliquez pour agrandir...

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 5), Array(8, 2), Array(14, 1)), TrailingMinusNumbers:= _
        True
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""00\:00\:00"")"
    Selection.AutoFill Destination:=Range("C1:C110")
    Range("C1:C110").Select
End Sub

M12 à dit:

Bonjour
Bonjour Dranreb

A tester

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Comme celui de M12: Clic droit sur l'onglet, Visualiser le code.
Pourquoi n'avez vous pas dit tout de suite que vous vouliez récupérer la date et l'heure ?
Essayez en mettant:

VB:

  TRés(L, 1) = DateSerial(Left$(TSpl(0), 4), Mid$(TSpl(0), 5, 2), Mid$(TSpl(0), 7, 2))
  TRés(L, 2) = TimeSerial(Mid$(TSpl(0), 9, 2), Mid$(TSpl(0), 11, 2), Mid$(TSpl(0), 13, 2))

Là vous pourrez mettre des formats de cellule de date et heure.
Pour laisser une ligne vide devant, terminez par :

VB:

Me.[A2:F1001].Value = TRés

Cliquez pour agrandir...

M12 à dit:

Bonjour

De mon côté voilà le résultat

Cliquez pour agrandir...

M12 à dit:

Re,
Quel est votre PC (Win ou Mac)
Quel est votre version EXCEL

Cliquez pour agrandir...