Discussion :

[anisr]

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.

[SfJ5Rpw8]

tiens j'ai pas le temps de tester ... mais modifie ta boucle ainsi ..

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
 
...
 For Each oFile In oSourceFolder.Files
 
     set Classeur =   Workbooks.OpenText Filename:=oFile, _
            DataType:=xlDelimited, Tab:=True
 
           Classeur.SaveAs Filename:="C:\txt\Extraction\xls\" & FSO.GetBaseName(oFile.Name) & ".xls", _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
 
         Set wksDest = Classeur.Worksheets.Add()
        wksDest.Name = "Recap"
 
     Classeur.Close true
  Next oFile
 
 
...

[anisr]

Bonjour,

Je crois qu'il y un problème avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set Classeur =   Workbooks.OpenText Filename:=oFile, _
            DataType:=xlDelimited, Tab:=True

Je ne sais pas comment corriger

[SfJ5Rpw8]

essai de rajouter des parenthèses...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
et Classeur =   Workbooks.OpenText( Filename:=oFile, _
            DataType:=xlDelimited, Tab:=True)

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Workbooks.OpenText Filename:=oFile, DataType:=xlDelimited, Tab:=True
        Set classeur = ActiveWorkbook

[anisr]

Merci le code fonctionne