VBA Récupérer certaines données des fichiers TXT en tableau EXCEL

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.

Pièce jointe 645907Pièce jointe 645908

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

Merci d'avance pour votre aide.

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

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 .

Bonjour ,

y'a t 'il du nouveau SVP?

Merci d'avance pour votre aide .

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

Bonjour à toutes et à tous
La réponse de 78chris est sans doute la meilleure (bonjour au passage :bravo::bravo:), 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

Citation:

---

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

---

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

Citation:

---

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:

---

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:

---

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

Bonjour tout le monde,

Merci beaucoup BENNASR pour votre aide .

je vous informe que ça réponds exactement à mon besoin , j'ai testé le macro et j'ai bien récupéré les données nécessaires des fichiers textes .par contre il reste le problème au niveau des colonnes C1, C2,C3,C4 mal renseigné lorsque j'importe un nouveau fichier texte . voir résultat ci dessous Pièce jointe 646036.

Un grand merci à vous tous .

Nous attendons aussi le retour de CHRIS pour la solution de powerBI :)

Cordialement.

Normalement pas de problème pour C1 a C4
Quelle modification que tu as apporté au code ???
Tu envoie tjrs les données du fichier texte en cellule A2 non ???

Bonjour
C'est férié ici donc pas connecté aujourd'hui...

Modifier le chemin, les paramètres de PowerQuery pour pouvoir récupérer le chemin placé dans une cellule nommée
Lancer PowerQuery puis Fichier, Options et paramètres, Options de requête, partie GLOBAL : Confidentialité, Toujours ignorer les paramètres de niveau de confidentialité

Refermer et Données, Actualiser Tout

Bonsoir les amis ,

@BENNASR : quand j'ai importé un nouveau fichier texte ayant plusieurs transaction , les cellules que je veux récupérer dans les colonnes C1 à C4 sont les chiffres qui sont toujours affichés après "NOTES PRESENTED" dont les lignes ne sont pas fixes à A21 et A68 . je dois récupère la données même les lignes changent .

Renseigné C1,C2,C3,C4 par les chiffres qui sont saisi après la phrase "NOTES PRESENTED".
Je peux remplir les cellules de tableau A2.........An automatiquement par les NUMERO CARTE : XXXXXXXXXXXX123?

Je vous remercie pour votre collaboration, votre expertise et professionnalisme ont été essentiels à la réussite de ce macro :)

Cordialement.

Bonsoir CHRIS ,

Merci pour votre retour et votre aide . J'ai suivi les étapes que vous m'avez communiqué , ça marche nickel. super

MERCI encore une fois à vous CHRIS, BENNASR et à tout le monde :)


VOUS ETES PRO !!!!! je suis fière d'être un membre parmi vous .

Bonjour
Pour ceux qui n'ont pas une version excel qui prend en charge PQ .. je propose encore ce bricolage
à tester

Bonjour Tout le monde ,

j'ai testé cette dernière version et c'est réussi . Bravo BENNASR.

UN GRAND MERCI à vous tous .

Bonjour

Citation:

---

Envoyé par BENNASR

Pour ceux qui n'ont pas une version excel qui prend en charge PQ ..

---

Pris en charge depuis la version 2010 donc c'est pour la préhistoire, lol !

Mais on trouve encore du 2007 couramment sur les forums ou des boîtes qui refusent l'add on sur 2010 et 2013... donc ça peut faire des heureux :D

Bonjour ,

@78chris : j'ai ajouté d'autres colonnes (numéro carte / code réponse/ montant ) sur le tableau dont vous m'avez communiqué selon mes besoins , et voici les résultats que j'ai obtenu:

- les données relatives aux numéros de carte non récupérées
- les données relatives aux code réponse non récupérées
- la valeur montant est récupéré en format texte

ci joint le détail de fichier texte (test.txt) + résultat en tableau excel (Script_test.xlsx)

Merci d'avance pour votre aide. c'est bloquant.

Je compte sur votre collaboration habituelle .

Bonjour

Il y a un changement de structure de la source : la zone AUTHENTIFICATION, qui n'existait pas, double NUMERO CARTE et CODE REPONSE pour une des cartes.

Cela plante la requête qui attend 14 lignes par carte (selon liste) et non 16 pour l'une d'elle

Par ailleurs le montant a un séparateur décimal non conforme qui nécessite un typage particulier

Bonsoir,
Merci 78Chris pour votre retour.
Comment je gère ces cas particuliers dans le fichier pour pouvoir ramener toutes les données nécessaires ?
Merci beaucoup.

RE

Es-tu sûr que ce format est stable ? Car sinon on y sera encore après Noël.

Si les extractions varient au fil du temps il est difficile d'établir une logique.

Bonjour
Oui sûr que ce format est stable.
D ailleurs celui qui se répète à chaque extraction.
Merci mon ami pour votre aide.

Bonjour

Bonjour ,

Merci beaucoup 78Chris. you are the best .

Best Team and best Group ever .

Bonne journée à tout le monde.