Bonjour,
Le code suivant permet de transformet un fichier texte en excel.
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
Le problème c'est au niveau de l'ajout d'une feuille Recap avant d'enregistrer et de quitter, comment corriger?

Merci d'avance.