XL 2013 Conversion de fichiers Textes en Excel

grecooll · 3 Février 2023

Bonjour,

J'ai actuellement un problème: je souhaite convertir plusieurs fichiers textes à partir d'un dossier en fichier Excel.

Je sais qu'il est très facile de convertir des fichiers textes en Excel mais je souhaite automatiser le plus possible cela car je reçois bcp de fichier textes. J'ai essayé de mélanger certaines requêtes mais impossible et je m'y connais très peu en Power Query.

J'ai mis un exemple (simplifié) ci-joint. Le but serait d'avoir des tableaux comme dans le fichier excel.

Merci d'avance,
Bien cordialement,

chris · 3 Février 2023

Bonjour

Tes structures sont différentes donc déjà il faut les stocker dans un dossier ou sous-dossier différent

Tu ne dis pas si tu veux les associer par exemple sur name ou pas...

grecooll · 3 Février 2023

Bonjour Chris,

Je souhaite juste convertir mes fichiers texte en tableau excel sur une nouvelle feuille à chaque fois (cas classique comme si j'utilisais la fonction "importation de texte") mais de manière quasi-automatique. Peut-être que PowerQuery n'est pas la solution à mon problème.

Bien cordialement,

ZAKAO · 3 Février 2023

Bonjour @grecooll et @chris,

Est-ce que tu pensais à un truc comme cela ?

VB:

Sub ConvertToActiveWorkbook()

Dim iBook As Workbook
Dim iTexts As Workbook
Dim iSheet As Worksheet
Dim fichier_choisi$
Dim lr&
Dim lc&

Set iBook = ThisWorkbook
Set iSheet = iBook.Sheets.Add

fichier_choisi = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Sélectionner le fichier TXT")

Set iTexts = Workbooks.Open(fichier_choisi)
iTexts.Sheets(1).Cells.Copy iSheet.Cells

iTexts.Close SaveChanges:=True

lr = iBook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
lc = iBook.Sheets(1).Cells(1, Cells.Columns.Count).End(xlToLeft).Column

iBook.Sheets(1).ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(lr, lc)), , xlYes).Name = "Tableau"

End Sub

Zakao

grecooll · 3 Février 2023

Salut,
Merci. Franchement top, mais est ce que c'est possible qu'il lance pour tous les fichiers texte directement du dossier ?
Merci d'avance,
Bien cordialement,

ZAKAO · 3 Février 2023

grecooll à dit:
Salut,
Merci. Franchement top, mais est ce que c'est possible qu'il lance pour tous les fichiers texte directement du dossier ?
Merci d'avance,
Bien cordialement,

Oui j’imagine que c’est possible mais je ne l’ai jamais fait et j’ai plus mon ordi ^^’

chris · 3 Février 2023

grecooll à dit:
Bonjour Chris,

Je souhaite juste convertir mes fichiers texte en tableau excel sur une nouvelle feuille à chaque fois (cas classique comme si j'utilisais la fonction "importation de texte") mais de manière quasi-automatique. Peut-être que PowerQuery n'est pas la solution à mon problème.

Bien cordialement,

Re effectivement si tu veux générer automatiquement n onglets, ce n'est pas PowerQuery ou pas sans VBA associé

Attention au nombre d'onglets : outre que cela devient vite ingérable, selon la mémoire dispo cela peut s'arrêter de fonctionner du jour au lendemain...

grecooll · 3 Février 2023

chris à dit:
Re effectivement si tu veux générer automatiquement n onglets, ce n'est pas PowerQuery ou pas sans VBA associé

Attention au nombre d'onglets : outre que cela devient vite ingérable, selon la mémoire dispo cela peut s'arrêter de fonctionner du jour au lendemain...

C'est pour un besoin temporaire mais qui pourrais me faire gagner beaucoup de temps!

Merci! Je vais changer l'onglet du post!

XL 2013 Conversion de fichiers Textes en Excel

grecooll

XLDnaute Nouveau

Pièces jointes

chris

XLDnaute Barbatruc

grecooll

XLDnaute Nouveau

ZAKAO

XLDnaute Junior

Pièces jointes

grecooll

XLDnaute Nouveau

ZAKAO

XLDnaute Junior

chris

XLDnaute Barbatruc

grecooll

XLDnaute Nouveau

Discussions similaires