Macro d'importation .txt dans un classeur xls

Bonjour,

Je viens vers vous afin de solliciter votre aide sur une macro d'automatisation d'importation de données depuis un fichier .txt vers un classeur Excel.

J'arrive pour l'instant à importer les données dans une nouvelle feuille du classeur.
J'aimerai pouvoir renommer la feuille ainsi créée pendant le déroulement de la macro. (nom automatique [Nom_date du jour])

A chaque importation de données, la macro (cf ci dessous) créée une nouvelle feuille mais avec un nom classique. (feuille 1, feuille 2 ...)

Ma deuxième interrogation concerne une macro qui permettrait de faire un récapitulatif des feuilles Excel du classeur. A savoir une feuille regroupant uniquement certaines informations (certaines lignes ou cellules des feuilles créées). Comme par exemple la date, le montant de la facture, voir des lignes completes (produits en stock 0 etc)

Sub import_txt()

'

' import_txt Macro

'

Name = InputBox("Merci d'entrer le nom de cette feuille :")

FichierChoisi = Application.GetOpenFilename

 
ActiveWorkbook.Worksheets.Add

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;" & FichierChoisi, Destination:=Range("$A$1"))

        .Name = "CMD"

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

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = True

        .TextFileSemicolonDelimiter = False

        .TextFileCommaDelimiter = False

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)

        .TextFileFixedColumnWidths = Array(19, 43, 10, 8, 14)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

End With

End Sub

Merci pour votre aide ou point de vue me permettant d'avancer sur ce point.

Bonne compilation à tous