XL 2013 Conversion de fichiers Textes en Excel

[grecooll]

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]

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]

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]

Bonjour @grecooll et @chris,

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

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]

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]

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]

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]

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!