Fusionner plusieurs fichiers txt en un seul onglet xsl.

van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Je poste, car je suis complétement décourager, j'ai essaye de mille manières, de l’enregistrement de macro, au code vba internet mais rien à faire!

J'essaye désespérément de fusionner plusieurs fichiers txt qui se trouve dans un répertoire, en un seul onglet sur un classeur excel.

Le but étant de faire des statistiques par la suite.

Merci d'avance
A voir également:

5 réponses

Réponse 1 / 5
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Voilà.
A copier dans un module : 
Option Explicit

    Sub Copier_Plusieurs_Fichiers_Txt()
    Dim NomFich, Wbk As Workbook, i As Integer, mavar As Variant, DL_Sh1 As Long, DL As Long
    
        Application.ScreenUpdating = False
        
        Set Wbk = ThisWorkbook
        NomFich = Application.GetOpenFilename(FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner les fichiers", ButtonText:=mavar, MultiSelect:=True)
        
        If IsArray(NomFich) Then
            For i = LBound(NomFich, 1) To UBound(NomFich, 1)
                If NomFich(i) <> "Faux" Then
                    'ouverture fichiers txt
                    Workbooks.OpenText Filename:=NomFich(i), Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True, DecimalSeparator:="."
                    DoEvents
                    
                    'traitement
                    With Wbk
                        Sheets(1).Copy After:=.Sheets(.Sheets.Count)
                        DoEvents
                        If WorksheetFunction.CountA(.Sheets(1).Columns(1)) = 0 Then
                            DL_Sh1 = 1
                        Else
                            DL_Sh1 = .Sheets(1).Columns(1).Find("*", , , , , xlPrevious).Row
                        End If
                        DL = .Sheets(.Sheets.Count).Columns(1).Find("*", , , , , xlPrevious).Row
                        .Sheets(.Sheets.Count).Range("A1:Z" & DL).Copy .Sheets(1).Range("A" & DL_Sh1)
                        Application.DisplayAlerts = False
                        .Sheets(.Sheets.Count).Delete
                        Application.DisplayAlerts = True
                    End With
                    
                    'fermeture fichiers txt
                    NomFich(i) = Split(NomFich(i), "\")(UBound(Split(NomFich(i), "\")))
                    With Workbooks(NomFich(i))
                        .Close False
                    End With
                    DoEvents
                End If
            'suivant
            Next i
        Else
            MsgBox "Aucun fichier sélectionné."
        End If
        'FIN
        Sheets(1).Select
    End Sub

1
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
C'est canon ! Merci beaucoup
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
De rien.
Si c'est résolu, on peut passer à ton autre souci.
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
le GROS du GROS est d'actualiser ca tous les moi avec des fichiers differents et la je pense que ce n'est psa l'affaire de vba mais de buisness object ou de access
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
mois
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Oui, ou alors le souci du service informatique de ta boîte.
0
Réponse 2 / 5
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

1- comment sont construits les fichiers txt? Plusieurs colonnes? Structurés? etc... Décris les au mieux.

2- Montre nous le bout de code que tu as tenté qui ne fonctionne pas.

0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de répondre.

Les fichiers txt sont destructurés a la base sont des fichiers pdf mais qu'un entreprise envois également en txt, mais c'est pas beau a voir. Malheuresement c'est des données confidentielles je ne peux pas faire voir.

Désolé c'est pas chez moi la suis à l'entreprise je vais essayé avec BO
0
ryko1820 Messages postés 1677 Date d'inscription   Statut Membre Dernière intervention   276 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Hello,

peut être qu'il serait préférable dans ce cas de demander à l'entreprise qui fournit les données si elle n'a pas un format plus adapté aux traitements ?
0
Réponse 3 / 5
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Essayez cette procédure sur 1 fichier txt et dites moi le résultat :
1- ouvrir un nouveau classeur Excel
2- Alt+F11
3- Insertion/Module
4- copier/coller ce code dans un module 
Sub Copier_1_Fichier_Txt()
Dim NomFich, Wbk As Workbook
    Set Wbk = ThisWorkbook
    NomFich = Application.GetOpenFilename _
    (FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner le fichier")
     If NomFich = False Then
        MsgBox "Aucun fichier sélectionné."
        Exit Sub
    End If
    Workbooks.OpenText Filename:=NomFich, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True, DecimalSeparator:="."
    DoEvents
    With Wbk
        Sheets(1).Copy After:=.Sheets(.Sheets.Count)
        DoEvents
    End With
    NomFich = Split(NomFich, "\")(UBound(Split(NomFich, "\")))
    With Workbooks(NomFich)
        .Close False
    End With
    DoEvents
End Sub

5- fermer la fenêtre VBA
6- Taper Alt + F8
7- Choisir : Copier_1_Fichier_Txt
8- Cliquer sur Exécuter
9- sélectionner 1 fichier txt
10- revenir me dire ce qu'il en est.
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Je fais ca tout de suite merci d'avance
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
La macro permet d'importer plusieur fichiers txt sur plusieurs onglets differens de excel, cependant ce que j'arrive pas c'est les mettre tous dans un dans un seul onglet
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Là n'est pas (encore) la question.

Comment se déroule l'import?
Le résultat, dans la feuille, est-il exploitable?
Toutes les données "arrivent" bien dans la feuille Excel?
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Oui ils arrivent bien, pardon mais c'est pas encore tres déstructurés
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
mais c'est pas encore tres déstructurés
Faut m'expliquer clairement ce qu'il convient de faire pour les "structurer"...

Sinon, en attendant, essaye ceci avec 3-4 fichiers txt : 
Sub Copier_Plusieurs_Fichiers_Txt()
Dim NomFich, Wbk As Workbook, i As Integer, mavar As Variant, DL_Sh1 As Long, DL As Long

    Set Wbk = ThisWorkbook
    NomFich = Application.GetOpenFilename(FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner les fichiers", ButtonText:=mavar, MultiSelect:=True)
    If IsArray(NomFich) Then
        For i = LBound(NomFich, 1) To UBound(NomFich, 1)
            If NomFich(i) <> "Faux" Then
            Workbooks.OpenText Filename:=NomFich(i), Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True, DecimalSeparator:="."
            DoEvents
            With Wbk
                Sheets(1).Copy After:=.Sheets(.Sheets.Count)
                DoEvents
                If WorksheetFunction.CountA(.Sheets(1).Columns(1)) = 0 Then
                    DL_Sh1 = 1
                Else
                    DL_Sh1 = .Sheets(1).Columns(1).Find("*", , , , , xlPrevious).Row
                End If
                DL = .Sheets(.Sheets.Count).Columns(1).Find("*", , , , , xlPrevious).Row
                .Sheets(.Sheets.Count).Range("A1:Z" & DL).Copy .Sheets(1).Range("A" & DL_Sh1)
                Application.DisplayAlerts = False
                .Sheets(.Sheets.Count).Delete
                Application.DisplayAlerts = True
            End With
            NomFich(i) = Split(NomFich(i), "\")(UBound(Split(NomFich(i), "\")))
            With Workbooks(NomFich(i))
                .Close False
            End With
            DoEvents
            End If
        Next i
    Else
        MsgBox "Aucun fichier sélectionné."
    End If
End Sub
0
Réponse 4 / 5
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Je te prépare une nouvelle mouture avec deux trois améliorations, dont la sélection de la feuil1 en fin de macro...
Dans 5 minutes.

--
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
d'accord merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Tout d'abord, voici un nouveau fichier qui te permet de ne pas recopier systématiquement les entêtes :
https://www.cjoint.com/c/FDhmBtJpNwE

Ensuite, que souhaites tu faire?
Ne garder que les lignes dont la colonne H se termine par 333?
Autre chose?
N'hésite pas...
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
non je veux tout garder pour l'instant
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
Ben explique moi alors ton histoire de requête, de chaussures rouges etc...
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
enfaite la l'objectif et de rendre la base tres propre via macro
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
C'est ce que fait mon dernier fichier non?
0
van_van Messages postés 60 Date d'inscription   Statut Membre Dernière intervention  
 
ecoute j'attend mon superieur il arrive dans une semaine, pour voir un truc et je te recontacte d'accord ?
0

Discussions similaires

Impossible fusionner cellules
aubli -
Christian -

3 réponses
Reactiver la fusion des cellules, tableau exc
chector10 -
chector10 -

38 réponses
"Fusionner" deux comptes Google ?
Beats_by75 -
Agnes -

5 réponses
Fusionner deux cellules excel dans mac
leuzaccent -
benm74 -

7 réponses
Fusionner des fichiers .txt
Narayan -
brucine -

33 réponses