XL 2010 importer plusieurs fichier txt dans le même classeur

J

jojo2006

XLDnaute Occasionnel
Bonjour à tous,

je souhaiterai réaliser une macro vba pour importer plusieurs fichiers fichiers txt dans un classeur excel
à partir d'une fenêtre où je sélectionne tous mes fichiers txt.

j'ai fais un enregistrement pour importer 1 fichier et j'obtiens le code suivant.

Pouvez vous me dire comment boucler pour le code ci dessous s'adapte avec les noms des fichiers sélectionnés (jamais identiques) et pour que les données soient copiées les unes à la suite des autres en ligne ?

je vous remercie d'avance pour votre aide.


VB: 
Sub import1()
'
' import1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\moi\Desktop\V1.0P_1_chr.txt" _
        , Destination:=Range("$A$1"))
        .Name = "A20994_CTRL_LAMAGE_V1.0P_1_chr"
        .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 = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .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)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub
 

Pièces jointes

  • V1.0P_1_chr.txt
    3.2 KB · Affichages: 6
Trier par date Trier par votes
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Voici une macro simple qui fonctionnera si tous vos fichiers ont la même structure. Une feuille est créée par importation.
La macro Importer n'est que très lègèrement modifiée
VB: 
Sub Fichiers_Imports_multiple()
    Dim Fichiers As Variant
    Dim I As Integer

    Fichiers = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Sélection un ou des Fichier(s)", MultiSelect:=True)

    If IsArray(Fichiers) Then
        For I = 1 To UBound(Fichiers)
            Importer Fichiers(I)
        Next
    End If
End Sub

Avec Power Query (en addOn gratuit pour 2010) vous pourriez plus facilement manipuler et transformer vos fichier.

Download Microsoft Power Query pour Excel from Official Microsoft Download Center

Microsoft Power Query pour Excel est un complément Excel qui améliore l'expérience du décisionnel libre-service dans Excel en simplifiant la récupération des données, l'accès et la collaboration.
www.microsoft.com
Cliquez pour agrandir...

Cordialement
 

Pièces jointes

  • Imports.xlsm
    24.9 KB · Affichages: 17
Vote positif 0 Vote négatif
J

jojo2006

XLDnaute Occasionnel
Bonjour Hasco,

c'est très bien cette petite macro je l'ai testé ça marche bien.:)

Merci beaucoup !!!

ceci dit, je souhaiterait que les données de chaque fichier soit sur une feuille unique .

J'ai au moins 300 fichiers à importer donc cette solution qui crée des feuilles à chaque fichier n'est pas pertinente pour mon objectif d'analyse.

Dans la macro importer() au lieu de créer une feuill à chaque fois

VB: 
' Création d'une nouvelle feuille
Set ws = ThisWorkbook.Sheets.Add()

, on reste sur la feuille de destination ( par exemple "data") et on change le range de la destination

Code: 
 With ws.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=ws.Range("$A$1"))


du coup j'ai modifié ton code pour avoir celà.

ce n'est pas optimal ( recherche de la derniere ligne à chaque fichier importé) mais ça marche.

il faut juste que je trouve comment ne pas importer l'entête de chaque fichier.
sinon je fais une autre macro pour épurer en fin d'importation.

Vos avis ?

merci à tous


Code: 
Sub Importer(ByVal fichier As String, Optional NomDuTableau As String)
'Dim ws As Worksheet
'
' Si fichier inexistant alors sortir
If Dir(fichier) = "" Then Exit Sub
'
' Création d'une nouvelle feuille
'Set ws = ThisWorkbook.Sheets.Add()
'

Dim i As Integer

i = 1

'cherche la dernière ligne sur la feuille "data"

Sheets("data").Select

Do While Cells(i, 1).Value <> ""

i = i + 1
Loop

   
      With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range(Cells(i, 1), Cells(i, 1)))
   
   
        If NomDuTableau <> "" Then .Name = NomDuTableau
        .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 = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .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)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub
 
Vote positif 0 Vote négatif
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Vous avez 2 propriétés :
1 - FieldNames mettez la à true 'Ne considèrera pas la première ligne de données comme entête
2 - TextFileStartRow mettez la à 2 ' Les données seront importées à partir de cette ligne

Et cela devrait le faire


VB: 
'cherche la dernière ligne sur la feuille "data"

Sheets("data").Select

Do While Cells(i, 1).Value <> ""

i = i + 1
Loop

Oh !!! ben c'est vous qui n'avez pas beaucoup chercher. C'est une des premières demandes de tous les forum vba excel !!!!

Première ligne non occupée de Datas en colonne 1:
Code: 
Dim C as range 'en tête de macro

Set C = Sheets("Data").Cells(Rows.Count, 1).End(xlUp)(2)

et ensuite : QueryTables.Add (...., Destination:= C)

cordialement
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Hasco (salutations ;))
D'après le site de Microsoft, il faut un Excel 2010 Pro.
Pour 2013, peut importe la version (j'en suis témoin)
Je ne sais si il y a des XLDnautes qui ont tenté l'installation sur XL 2010 Home ou Etudiant avec succès.

NB: Au taf, ma DSN me l'avait installé sur un XL 2010 PRO
Heureusement en 2022, nous sommes passé à Office 2019 (tout en restant avec 2010 sous Citrix !!!)
 
Vote positif 0 Vote négatif
J

johanvba

XLDnaute Nouveau
Bonjour à tous;

dans ce cas, je veux importer les fichiers séparément dans différente feuille
merci.

VB: 
Option Explicit

Sub Fichiers_Imports_multiple()
    Dim Fichiers As Variant
    Dim I As Integer

    Fichiers = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Sélection un ou des Fichier(s)", MultiSelect:=False)

    If IsArray(Fichiers) Then
        For I = 1 To UBound(Fichiers)
            Importer Fichiers(I)
        Next
    End If
End Sub
Sub Importer(ByVal fichier As String, Optional NomDuTableau As String)
Dim ws As Worksheet
Dim TXT As String
Dim d As String
Dim AddInName As String
'
' Si fichier inexistant alors sortir
If Dir(fichier) = "" Then Exit Sub
'
' Création d'une nouvelle feuille
AddInName = "Etalonnage de Volume"
TXT = ThisWorkbook.Path & "\" & AddInName & ".txt"
If TXT = "fichier" Then
d = "Etalonnage de Volume"
Else
d = "Etalonnage de Pression"
End If
Set ws = ThisWorkbook.Sheets(d)
'
    With ws.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=ws.Range("$A$1"))
        If NomDuTableau <> "" Then .Name = NomDuTableau
        .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 = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .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)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub
 

Pièces jointes

  • Imports.xlsm
    25.2 KB · Affichages: 3
Vote positif 0 Vote négatif
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

@johanvba : créez votre propre discussion plutôt que de squatter ce fil, qui ne répond pas à votre besoin, d'autant qu'il semble que vous utilisiez excel 2016 et non 2010.
Dans votre nouvelle discussion décrivez plus précisement votre besoin.
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour le fil


@Hasco (salute ;) )
Le fil est déjà créé
J'y ai même pondu un petit peu de VBA...
www.excel-downloads.com

XL 2016 - Placer des données dans un fichier Excel avec un code VBA

Bonjour à tous; Comment lire à partir d'un fichier texte (.txt) avec son index et placer des données dans un fichier Excel . voici le code mais n'est pas marché. Sub Copy_TXT() Dim TXT_File As String Dim AddInName As String AddInName = "PPR" TXT_File = ThisWorkbook.Path & "\" & AddInName &...
www.excel-downloads.com www.excel-downloads.com
 
Vote positif 0 Vote négatif

Discussions similaires

gh4
  • Question
Autres importer donnees externes
Réponses
1
Affichages
313
don_pets
don_pets
J
  • Résolu(e)
XL 2016 Placer des données dans un fichier Excel avec un code VBA
Réponses
2
Affichages
766
Staple1600
Staple1600
C
  • Question
Microsoft 365 Problème avec < Refresh BackgroundQuery >
Réponses
2
Affichages
1 K
Coco_lac
C
J
  • Question
XL 2019 importer le contenu de plusieurs xlsx dans une même sheet d'un nouveau fichier excel
2 3
Réponses
34
Affichages
4 K
Hasco
Hasco
S
  • Résolu(e)
XL 2016 Séparateurs décimales & milliers sur un import csv
2
Réponses
18
Affichages
3 K
sabrina_
S
P
  • Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
GALOUGALOU
G
  • Question
Power Query power query
2
Réponses
22
Affichages
4 K
GIPJGR
G
T
  • Question
XL 2010 Import et enregistrement d'un fichier CSV en Excel
Réponses
0
Affichages
1 K
Tophe2
T
V
  • Question
XL 2016 Mise en forme fichier texte sous excel
Réponses
7
Affichages
2 K
VBA
V
P
  • Question
Erreur 1004 sur VBA pour novice
Réponses
5
Affichages
2 K
gosselien
gosselien

Membres actuellement en ligne

13 membres et 104 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11