Discussion :

[phoenix974]

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.

[Docmarti]

Bonour.

Fais un test avec

Code :

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

Set Wb = Workbooks.Open(Filename:=Fichiers(i), local:=True)

[phoenix974]

Ca à l'air de fonctionner mais j'ai une erreur 424 Objet requis sur la ligne:

Code :

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

            dlSource = .Cells(.Rows.Count, 1).End(xlUp).Row

[Docmarti]

Ce n'est pas le nom de l'objet feuille qui t'interesse, mais l'objet feuille lui-meme.

Remplace

Code :

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

With Wb.ActiveSheet.Name

par

Code :

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

With Wb.ActiveSheet

[phoenix974]

Merci pour la précision.

Voici le code modifié qui fonctionne cette fois.

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
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 GLOBAL de la colonne A a la colonne AF sauf la premiere ligne
With ThisWorkbook.Sheets("GLOBAL")
    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("GLOBAL").Cells(Rows.Count, "A").End(xlUp).Row + 1 '1ere ligne vide
 
    'On definit Wb qui ouvre le fichier selectionne
     Set Wb = Workbooks.Open(Filename:=Fichiers(i), local:=True)
 
        'Feuille à copier
       With Wb.ActiveSheet
            'dernière ligne du fichier source
            dlSource = .Cells(.Rows.Count, 1).End(xlUp).Row - 6
            'Copier vers la 1ere ligne non vide de la feuille GLOBAL du fichier de consolidation
            .Range("A3:AF" & dlSource).Copy ThisWorkbook.Sheets("GLOBAL").Range("A" & dlDest)
      End With
        'On ferme le fichier source ouvert
        Wb.Close False
    Next
 
    Application.ScreenUpdating = True
 
End Sub

[phoenix974]

Si je veux qu'il explore tous les fichiers txt du dossier, je dois juste remplacer:

Code :

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

1
2
3
    'Ouvre exploreur et permet aux utilisateurs de sélectionner les fichiers Excel à consolider
    ChDir ThisWorkbook.Path
    Fichiers = Application.GetOpenFilename("Text Files (*.txt),*.txt", MultiSelect:=True)

par: ??

Code :

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

1
2
3
     'Répertoire contenant les fichiers
    Chemin = ThisWorkbook.Path
    Fichiers = Dir(Chemin & "\*.txt")

[Invité]

Bonjour,
https://www.developpez.net/forums/d1...u/#post9163787