Discussion :

[HOUAFA]

Bonjour tout le monde ,

Je suis nouveau dans ce forum et j'ai besoin de votre aide svp , je cherche à récupérer les données d'un fichier.txt en tableau Excel via un script macro pour pouvoir exploiter et analyser les données d'une façon facile. Ci joint mon fichier txt et le tableau que j'ai besoin.

EJ.txt

NB: mon répertoire a plusieurs fichier texte a exécuter à la fois .

Merci d'avance pour votre aide.

[78chris]

Bonjour

Cela fait plus de 10 ans que l'on utilise PowerQuery, intégré à Excel, pour ce faire

Il suffit de stocker les fichiers dans un dossier spécifique

Exemple avec le même fichier copié 2 fois dans le dossier: une liste des colonnes à récupérer, le chemin du dossier, le résultat

[HOUAFA]

Bonjour,

Merci beaucoup Chris pour votre retour . vous pouvez SVP me communiquer la procédure détaillée pour pouvoir la suivre .

J'ai vraiment besoin de votre aide pour avoir le même résultat que vous m'avez capturé .

Merciii d'avance pour votre professionnalisme .

[HOUAFA]

Bonjour ,

y'a t 'il du nouveau SVP?

Merci d'avance pour votre aide .

[fraflt69]

Et c'est sérieux sans fichier, ici, je crois, que l'on ne vous répondra pas

[BENNASR]

Bonjour à toutes et à tous
La réponse de 78chris est sans doute la meilleure (bonjour au passage ), j'ai tenté d'arriver au même résultat avec PowerQuery sans succès
Le principe consiste à créer une liste avec les intitulés à rechercher, importer le fichier texte, faire la comparaison entre la liste et la colonne du fichier texte puis fractionner la colonne...bref un chemin à creuser mais une fois powerquery est maîtrisé je crois que c'est un outil formidable
J'ai contacté cette adresse pour avoir une idée sur les fonctions de PQ...genre Text.Contains , les liste et autres

https://learn.microsoft.com/fr-fr/powerquery-m/

Pour savoir comment faire comparaison entre une liste et une colonne j'ai contacté ce billet

https://www.lecfomasque.com/power-qu...ans-une-liste/

Si 78chris explique la solution , je serais preneur
Pour un bricolage VBA et surtout que notre amie attend avec patience une réponse faite avec le principe que la structure des fichiers .text est la même :
Importer fichier texte avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ImportTxt()
Dim FichierTxt
FichierTxt = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FichierTxt <> False Then
    With Worksheets("Feuil1")
        .UsedRange.ClearContents
        With .QueryTables.Add(Connection:="TEXT;" & FichierTxt & "", Destination:=.Range("A2"))
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End With
End If
Worksheets("Feuil1").Range("B21").Value = Mid(Worksheets("Feuil1").Range("A21").Value, 27, 2)
Worksheets("Feuil1").Range("C21").Value = Mid(Worksheets("Feuil1").Range("A21").Value, 30, 2)
Worksheets("Feuil1").Range("D21").Value = Mid(Worksheets("Feuil1").Range("A21").Value, 33, 2)
Worksheets("Feuil1").Range("E21").Value = Right(Worksheets("Feuil1").Range("A21").Value, 2)
Worksheets("Feuil1").Range("B68").Value = Mid(Worksheets("Feuil1").Range("A68").Value, 27, 2)
Worksheets("Feuil1").Range("C68").Value = Mid(Worksheets("Feuil1").Range("A68").Value, 30, 2)
Worksheets("Feuil1").Range("D68").Value = Mid(Worksheets("Feuil1").Range("A68").Value, 33, 2)
Worksheets("Feuil1").Range("E68").Value = Right(Worksheets("Feuil1").Range("A68").Value, 2)
End Sub

Remplir le tableau avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub remplirTblo()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim ligF1 As Long
Dim ligF2 As Long
Application.ScreenUpdating = False
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
ligF1 = F1.Cells(Rows.Count, 1).End(xlUp).Row
For C = 1 To 10
For L = 1 To ligF1
If InStr(1, F1.Cells(L, 1), F2.Cells(1, C)) <> 0 Then
ligF2 = F2.Cells(Rows.Count, C).End(xlUp).Row + 1
F2.Cells(ligF2, C) = Left(F1.Cells(L, 1), 9)
End If
Next L
Next C
LigE = F2.Cells(Rows.Count, 5).End(xlUp).Row + 1
F1.Range("B21:E21").Copy
F2.Range("E" & LigE).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
LigE = F2.Cells(Rows.Count, 5).End(xlUp).Row + 1
F1.Range("B68:E68").Copy
F2.Range("E" & LigE).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
Application.ScreenUpdating = True
End Sub

J'espère que ça aide à avancer