ouverture de plusieurs fichiers txt dans un seul classeur XLS

Question

Bonjour,

qq1 pourra m'aider à resoudre mon pb enfin une macro sous VB qui
consiste à ouvrir plusieurs fichiers textes dans un seul classeur XL.

là j'arrive à ouvrir chaque fichier dans un seul tableau, mais ce
que je vx c'est qu'il sélectionne tous les fichiers qui se trouvent
dans la boite de dialogue et les ouvrir tous à la fois dans le mm
classeur!!

qq1 px m'aider SVP c urgent! :(


questionner est le fruit d'une réponse insatisfaisante

cs_casy · Answer

Voici le code qui te permettra d'importer le contenu d'un fichier dans la feuille active.
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\Documents\Mes fichiers reçus\TableArticle.csv", Destination:=Range( _
        "A1"))
        .Name = "TableArticle"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True  '--> Délimiteur ;
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)  '--> Autant de chiffres que de colonnes dans le fichier texte
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Il te reste plus qu'à mettre ça dans une boucle qui va traiter la liste de fichiers sélectionnés un à un

Les zones en rouge sont à modifier selon ton cas. Pense aussi à modifier le délimiter, ainsi que le tableau des types de colonnes 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_mya1 · Answer

ok merci bcp pr ton aide, je tacherai l'executer et je te tiendrai au courant des res..
remerci

questionner est le fruit d'une réponse insatisfaisante

Ouverture de plusieurs fichiers txt dans un seul classeur XLS

2 réponses

Votre réponse

Discussions similaires