[VBA-E] Encore opération sur fichier txt

Version imprimable

Bonjour,
Le code suivant permet de transformet un fichier texte en excel.

Code:

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.

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

Code:

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
 
 
...

10/03/2007, 09h29
anisr
Bonjour,

Je crois qu'il y un problème avec
Code:

1 2 set Classeur = Workbooks.OpenText Filename:=oFile, _ DataType:=xlDelimited, Tab:=True
Je ne sais pas comment corriger:oops:

essai de rajouter des parenthèses...

Code:

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

Code:

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

10/03/2007, 12h43
anisr

Merci le code fonctionne:pingoin2: :bravo: