Macro: importation fichier txt avec formatage des données

Bonjour,

Je voudrais créer une macro qui puisse importer un fichier txt dans mon fichier Excel :

1. Je voudrais avoir la possibilité d’importer n’importe quel fichier txt qui se trouve dans le même dossier que le fichier Excel.

2. Je voudrais formater aussi les données en délimité, avec les séparateurs : tabulation et point-virgule.

3. Faire apparaître une boîte de dialogue me permettant choisir le fichier txt

Pourriez-vous m’aider à corriger le code que j’ai obtenu jusqu’à présent ?

Voici le code :

Sub Macro1()

'

' Macro1 Macro

'

'

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;M:\ Fichiertextaimporter.txt" _

, Destination:=Range("$A$1"))

.Name = "Export"

.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 = True

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _

, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 13

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 16

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 21

ActiveWindow.ScrollColumn = 22

ActiveWindow.ScrollColumn = 23

ActiveWindow.ScrollColumn = 24

ActiveWindow.ScrollColumn = 25

ActiveWindow.ScrollColumn = 26

ActiveWindow.ScrollColumn = 27

ActiveWindow.ScrollColumn = 28

ActiveWindow.ScrollColumn = 29

ActiveWindow.ScrollColumn = 30

Columns("AK:AK").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("AK1").Select

ActiveCell.FormulaR1C1 = "Variation"

Range("AK2").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

Range("AK2").Select

Selection.AutoFill Destination:=Range("AK2:AK377")

Range("AK2:AK377").Select

End Sub

Merci d'avance pour vos réponses.

Bonjour toutes et tous,

As-tu visualiser ici

https://forum.excel-pratique.com/excel/importation-formatage-et-incorporation-d-un-fichier-txt-t74291.html

tu as un ou deux exemple(s)

crdlt,

André