1 2 3 4 5 6 7 8 9 10
| 'importe des donnees text
Sub ImportText(ByVal FileName As String, ByVal PosImport As Range)
Dim QT As QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
With QT
.TextFileSemicolonDelimiter = True
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.Refresh
End With
End Sub |