concaténer et comparer

Version imprimable

29/10/2020, 09h48
zazay123

concaténer et comparer

j'ai besoin de vos aides svp
je veux automatiser cela
j'ai des fichier .txt avec délimiteur ; et je veux les transformer en format .xlsx
ensuite je veux concaténer toutes les colonnes dans la première colonne vide
enfin comparer 2 colonnes (concaténation) de 2 fichiers et renvoyer les lignes qui ne se correspond pas

Merci d'avance
29/10/2020, 11h58
mfoxy

Bonjour zazay123,

Vous pourriez peut-être poster ici, deux des fichiers Txt ( anonymiser si besoin), nous pourrions de cette manière mieux vous orienter.
Mais de ce que je pense entrevoir, il me semble que Power Query pourrait faire cela sans aucune ligne de code.

Bàv,

Bonjour,

la demande étant assez générique, sans code de présentation, je vais te donner des pistes :

1) ouvrir un fichier txt dans excel : utiliser la méthode

Code:

Workbooks.OpenText

2) enregistrer au format : utiliser la méthode

Code:

MonClasseur.SaveAs

3) conctaténer les colonnes : un exemple commenté

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub toto()
Dim Tabl(), Result(), i As Long, j As Long, MonTexte As String
    With ThisWorkbook.Worksheets("Feuil3")              ' la feuille de données
        Tabl = .Cells(1, 1).CurrentRegion.Value         ' les données dans un tableau interne
        ReDim Result(1 To UBound(Tabl, 1))              ' le tableau de résultat
        For i = LBound(Tabl, 1) To UBound(Tabl, 1)      ' pour chaque ligne
            For j = LBound(Tabl, 2) To UBound(Tabl, 2)  ' pour chaque colonne
                MonTexte = MonTexte & Tabl(i, j)        ' on rassemble les colonnes
            Next j
 
            Result(i) = MonTexte                        ' la concaténation dans le tableau de résultat
            MonTexte = ""
        Next i
        ' injection du résultat dans la première colonne vide de la feuille
        .Cells(1, .Columns.Count).End(xlToLeft)(1, 2).Resize(UBound(Result), 1) = Application.Transpose(Result)
    End With
End Sub

Pour le reste, y'a du travail en amont à produire par tes soins avant de l'aborder ;)

29/10/2020, 13h52
zazay123

1 pièce(s) jointe(s)

Merci Joe.levrai pour les indications

mfoxy voila un fichier .txt exemple et le reste des fichiers c'est exactement le même format (contenu) sauf les données qui changent
Pièce jointe 582556
29/10/2020, 14h32
78chris

Bonjour à tous

Pour modéliser avec PowerQuery, un seul fichier ne va pas présenter les cas ou la comparaison échoue... donc rien à renvoyer...