Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

spv414052

XLDnaute Nouveau
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.
 

Pièces jointes

  • Utilisateurs.txt
    23.8 KB · Affichages: 20
  • Stat_Utilisateurs.xlsm
    127.5 KB · Affichages: 10

Phil69970

XLDnaute Barbatruc
Cyril (Spv414052), le forum

Je te propose ceci :

Code:
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…