Bonjour,
Le code suivant permet de transformet un fichier texte en excel.
Le problème c'est au niveau de l'ajout d'une feuille Recap avant d'enregistrer et de quitter, comment corriger?
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
29
30
31 Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As Boolean) ' adapté de Ole P Erlandsen ' necessite d'activer la reference Microsoft Scripting RunTime Static FSO As FileSystemObject Dim oSourceFolder As Scripting.Folder Dim oSubFolder As Scripting.Folder Dim oFile As Scripting.File Dim wksDest As Worksheet Dim Classeur As Workbook Set wksDest = ActiveSheet Set FSO = CreateObject("Scripting.FileSystemObject") Set oSourceFolder = FSO.GetFolder(strFolderName) For Each oFile In oSourceFolder.Files Workbooks.OpenText Filename:=oFile, _ DataType:=xlDelimited, Tab:=True ActiveWorkbook.SaveAs Filename:="C:\txt\Extraction\xls\" & FSO.GetBaseName(oFile.Name) & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Set wksDest = Workbooks.Open(oFile.Path) Set wksDest = Classeur.Worksheets.Add() wksDest.Name = "Recap" ActiveWorkbook.Close Next oFile End Sub
Merci d'avance.
Partager