Discussion :

[phoenix974]

Désolé, je me suis trompé de sous forum.

Bonjour à tous

Je souhaites via un code VBA aller sélectionner des fichiers .txt et qu'ils soient convertis et consolidés dans un même onglets sachant que le séparateur des fichier .txt est ";"

Je n'arrive pas à trouver comment intergrer ce code permettant de convertir mes fichiers Txt avec un separateur ";" au reste du code

Code :

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

1
2
 Workbooks.OpenText Filename:=Fichiers(i), Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Voici le reste du code.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Importer()
    Dim dlDest As Long, dlSource As Long, dlgR As Long, i As Long
    Dim Chemin As String
    Dim fichier As Variant, Fichiers As Variant
    Dim Wb As Workbook
 
    Application.ScreenUpdating = False
 
'efface les données de l'onglet DATA de la colonne A a la colonne AF sauf la premiere ligne
With ThisWorkbook.Sheets("Data")
    dlgR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A2:AF" & dlgR).ClearContents
End With
 
    'Ouvre exploreur et permet aux utilisateur de selectionner les fichiers Excel a consolider
    ChDir ThisWorkbook.Path
    Fichiers = Application.GetOpenFilename("Text Files (*.txt),*.txt", MultiSelect:=True)
    'Si aucun fichier n'est selectionné, on arrete le code
    If Not IsArray(Fichiers) Then Exit Sub
    'Pour chaque fichier selectionné
 
   For i = 1 To UBound(Fichiers)
 
        dlDest = ThisWorkbook.Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1 '1ere ligne vide
        'On definit Wb qui ouvre le fichier selectionne
    '    Set Wb = Workbooks.Open(Fichiers(i))
 
        Set Wb = Workbooks.Open(Fichiers(i))
                  Workbooks.OpenText Filename:=Fichiers(i), Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True
 
 
        ', Origin:=xlWindows, _
        'StartRow:=1, DataType:=xlDelimited, Semicolon:=True
        'Feuille à copier
       With Wb.ActiveSheet.Name
            'dernière ligne du fichier source
            dlSource = .Cells(.Rows.Count, "A").End(xlUp).Row
            'Copier vers la 1ere ligne non vide de la feuille Data du fichier de consolidation
            .Range("A2:AF" & dlSource).Copy ThisWorkbook.Sheets("Data").Range("A" & dlDest)
      End With
        'On ferme le fichier source ouvert
        Wb.Close False
    Next
 
    Application.ScreenUpdating = True
 
End Sub

J'ai utilisé ce code mais il y a peut être d'autres solutions, je débute dans le VBA.

Merci d'avance pour votre aide.

[Menhir]

Dans ton second code, l'instruction qui ouvre le fichier est :

Code :

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

    Fichiers = Application.GetOpenFilename("Text Files (*.txt),*.txt", MultiSelect:=True)

C'est donc à ce niveau que doit être implanté ton OpenText.
Mais il faudra plus qu'un simple copier/coller pour le mettre en place.

[Gfacro]

Je pense que vous n'avez pas regardé assez loin dans le code Menhir, l'ouverture du fichier texte est bien présente.


En revanche, je n'ai pas compris quelle est la question vu que le code en question est bien dans la boucle qui parcourt la liste des fichiers sélectionnés.


Pour faire marcher le code enlever "Set Wb = Workbooks.Open(Fichiers(i))" qui ne sert plus avec le opentext et faire ensuite set wb = activeworkbooks.



Juste après "With Wb.ActiveSheet.Name", c'est vraiment comme ça que vous avez trouvé le code que vous utilisez ? Je vous conseille de revenir au code de départ si vous l'avez modifié et de ne modifier que ce qui concerne le opentext.

[clementmarcotte]

En double

https://www.developpez.net/forums/d1...l/#post9684838