Importer plusieurs fichier avec la même largeur fixe

[elo_wiwi]

Bonjour,

voilà j'aimerai importer plusieurs fichiers txt avec l'option largeur fixe; avec pour chaque fichier txt une nouvelle feuille. Je connais l'emplacement des séparateurs de mes différents champs (qui est le même pour tout les fichiers)

je sais que je pourrais le faire manuellement mais j'ai plus d'une centaine de fichiers à importer et excel ne reconnait pas automatiquement l'emplacement de mes collones, ce qui rend la tâche vraiment fastidieuse....

je serai vraiment reconnaissante si quelqu'un pouvait m'aider

Elo

[xlzalup]

Bonjour


A tester et adpater
(j'ai testé avec 10 fichiers txt -> ok )

Code: Tout sélectionner

Sub import_fic_txt()
Dim Source As Workbook
Dim S_Feuille As Worksheet
Dim n$
Set Source = ThisWorkbook
'ici adapter le chemin
Fichier_Txt = Dir("C:\Temp\*.txt", vbNormal)
Application.ScreenUpdating = False
Do While Fichier_Txt <> ""
Workbooks.OpenText Filename:=Fichier_Txt, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False
With ActiveWorkbook
n = Split(ActiveWorkbook.Name, ".")(0)
    With .Sheets(1).UsedRange
        Set S_Feuille = Source.Sheets.Add
        .Copy S_Feuille.Range("A1"): S_Feuille.Name = n
    End With
    .Close SaveChanges:=False
End With
Fichier_Txt = Dir
Loop
Application.ScreenUpdating = True
End Sub