Import de plusieur fichier text à la suite.

[ThomasR]

Bonjour le forum,

J'ai a l'aide de macro créé des fichiers text (Janvier, fevrier,...Decembre)..

je cherche un moyen de toute les récupérer à la suite dans une feuille excel portant le nom HISTO.

J'ai une macro qui me sert à récupérer mes fichiers mais dans des dossier séparé.

je pourrais essayer de repartir de celle ci pour faire ce que je cherche mais cela ma parait trop lourd (import, mise en forme, copie plage, coller plage sup la feuille d'import).

est il possible d'importer directement dans une feuille existante ou faut il toujours faire comme ce faire créer une feuille au nom du fichier TXT .

Voici le code que j'utilise pour lequel j'aimerais boucler sur tout mes fichier TXT (janvier, fevrier....) afin qu'il se colle à la suite dans une feuille déja existante.

Sub import()
'
' import Macro
' Macro enregistrée le 16/05/2005 par trogeaux
'
adresssss = Sheets('HISTO').Range('J' & 1)
On Error Resume Next
      Workbooks.OpenText FileName:=adresssss & '\\' & VarMois1 & '.TXT', _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 1), Array(36, 1))
    Columns('B:M').Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Nom_fichier).Activate
    Sheets(VarMois1).Select
    Range('B1').Select
    ActiveSheet.Paste
    Columns('H:H').Select
    Selection.NumberFormat = '0'
    Application.DisplayAlerts = False
    Windows(VarMois1 & '.txt').Close False
    Application.DisplayAlerts = True
    'Windows(VarMois1 & '.txt').Activate
    'ActiveWindow.Close
End Sub

D'avance merci
Thomas®