Re : importer fichiers texte
Si tu pouvais nous donner le fichier en pièce jointe on pourrais effectivement plus facilement t'aider.
¨
Si non regarde.
With ActiveSheet.QueryTables.Add(Connection:=CheminFini, Destination:=ActiveCell)
.Name = "NomFichier"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Varaible cheminFini => S:\Industrialisation\AMELIORATION CONTINU\ETATS EQUIPEMENTS\00439 - SEMI-AUTOMATE INSERTION CONTACTS MALES\TPM_Log_111211.txt"
Variable Nomfichier => TPM_Log_111211
La déstination, tu met la cellule ou copier la 1 er ligne, le plus simple et de faire une fonction par fichier que tu as, etant donner que tu en as que deux.
Après tu met tes noms de fichier et leur emplacement.
Tu dois avant déclarer les valeurs des varaibles (CheminFini = S:\Industrialisation\AMELIORATION CONTINU....