XL 2010 VBA : Ouvrir un fichier .txt dans un onglet

[spv414052]

Bonjour
Pour mon travail, je suis en train d'automatiser un traitement mensuel dans lequel je récupère des fichiers .TXT avec lesquels je génère des tableaux croisés dynamiques.

J'arrive à charger le fichier désiré par le biais d'un bouton qui me permet de sélectionner dans me déplaçant dans l'arborescence et de le traiter automatiquement.

Maintenant, j'aimerai un cliquant sur le bouton ouvrir et traiter directement le fichier sans choisir l'arborescence (les nom des fichiers sont fixes) codé dans le VBA.
Mon exemple en pj
Merci pour votre aide

Cyril.

 

[Phil69970]

Cyril (Spv414052), le forum

Je te propose ceci :

Sub Charger_Fichier_TXT()
'
' Effacer_Feuille Macro
'
Feuil2.Activate
Range("A2:L10000").Select
Selection.ClearContents
Range("A2").Select

'
' Charger le Fichier .txt
'
Dim File_Name As Variant

Feuil2.Activate
Range("A2").Select

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\ceol6430\Desktop\Utilisateurs.txt", Destination:=Range("$A$2"))
     
        .FieldNames = False
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileSemicolonDelimiter = True
        .TextFileTabDelimiter = False
        .Refresh BackgroundQuery:=False
    End With

'
' Mise a jour Tableau Croise Dynamique
'
' Tableau croisee dynamique GrpUserId
Feuil5.Activate
Feuil5.Select
Range("A4").Select
ActiveSheet.PivotTables("TcD_Utilisateurs").PivotCache.Refresh

Range("A1").Select

End Sub

Cordialement
@Phil69970

 

[spv414052]

Bonjour,

C'est exactement ce que je recherchais.
Merci Phil69970