Fichier txt en Excel

Le 07/11/2018 à 18:48

bonjour le forum,

J'aimerais convertir un fichier . txt en fichier excel.xlsm la séparation du texte est avec "|"

merci de m'aider

Cordialement,

Le 07/11/2018 à 18:52

Bonjour afra,

onglet Données, 1er groupe Données externes, À partir du texte

(selon Excel 2007)

dhany

Le 07/11/2018 à 19:00

Bonjour

voila une macro la séparation est Pipe

Private Sub ChoixFicTxt()
Dim ChoixChemin$
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier TXT"
         .Filters.Clear
         .Filters.Add "Fichier Csv ", "*.txt*", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               LireTxt Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

Sub LireTxt(NomFichier)
Dim Ar() As String
   With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .Calculation = xlManual
   End With
Rows("1:" & Rows.Count).Clear
'Sep = "+"
'Sep = vbTab
Sep = "|"
Lig = 1
' -----------------------------------------
On Error Resume Next
   Open NomFichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Chaine
               Ar = Split(Chaine, Sep)
               Col = 1
                  For X = LBound(Ar) To UBound(Ar)
                     Tmp = Application.Trim(Ar(X))
                     Cells(Lig, Col).Value = Tmp
                     Col = Col + 1
                  Next
            Lig = Lig + 1
        Loop
    Close #1
' -----------------------------------------
   With Application
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .CutCopyMode = False
      .Goto [A1], True
   End With
End Sub

A+

Maurice

Le 07/11/2018 à 19:01

bonjour Dhany,

en faites je veux récupérer des données du réseau qui est au format.TXT dans mon classeur .xlsm onglet"extract" c'est pour essayer d'automatiser le procédé.

cordialement,

Le 07/11/2018 à 19:02

bonsoir Archer

j'essaye de suite merci.

Le 07/11/2018 à 19:09

il me demande l’accès du chemin alors que je l'ai renseigné sinon c'est exactement ça

Le 07/11/2018 à 19:14

Bonjour,

Essaie avec Récupérer et transformer dans Excel 2016 !...

Ruban, Données, Récupérer et transformer, Nouvelle requête, A partir d'un fichier, A partir d'un fichier texte.

Une fois la fenêtre ouverte, faire Modifier.

L'éditeur de Power Query est ouvert.