Discussion :

[zazay123]

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

[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,

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.OpenText

2) enregistrer au format : utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonClasseur.SaveAs

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazay123]

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
Nouveau document texte.txt

[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...