Index

Workbooks.OpenText

OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

Fichier avec séparateur ;

Workbooks.OpenText Filename:="import.txt",DataType:=xlDelimited, Semicolon:=True

Pour fichier Txt avec séparateur tabulation

Workbooks.OpenText Filename:="import.txt",DataType:=xlDelimited, Tab:=True

Sur cet exemple, nous utilisons GetOpenFilename pour choisir le fichier à importer.

Sub ChoixDuFichier()
  FichierChoisi = Application.GetOpenFilename("Fichiers Txt,*.txt")
  If Not FichierChoisi = False Then
    FichierActuel = ThisWorkbook.Name
    Workbooks.OpenText Filename:=FichierChoisi, DataType:=xlDelimited, Tab:=True
    Selection.CurrentRegion.Copy
    Windows(FichierActuel).Activate
    Range("A1").Select
    ActiveSheet.Paste
    '--- 1ere ligne en gras
    Range("A1", [A1].End(xlToRight)).Font.Bold = True
    '--- cadre
    [A1].CurrentRegion.BorderAround Weight:=xlThin
   End If
End Sub

L'extraction se fait avec:

Sub extrait()
  Range("I10:O1000").ClearFormats
  Range("A1:G100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:J2"), CopyToRange:=Range("I8:O8"), Unique:=False
End Sub