Importation automatique txt en Excel

**stef3700** · 09/01/2021, 15h11

Bonjour à tous,

Comme je suis novice, j'aurais besoin d'un coup de main de votre part pour mon fichier.

Voilà d'un fichier texte de pouvoir faire une moulinette automatique pour le convertir dans un nouveau tableau Excel.

Je vous joins mon fichier source en Texte comme modèle suite a une capture en hyper-terminal.
Ainsi qu'une capture ( Fichiers attachés) pour la finalisation de l'importation dans le nouveau tableau Excel.

Merci par avance à ceux qui prendrons un peu de temps pour me venir en aide.

Invité · 09/01/2021, 16h26

Envoyé par stef3700

Bonjour,

A tester :

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
 
Sub ImportFichierTexte()
 
Dim Fichier As String
Dim ShImport As Worksheet, ShMaj As Worksheet
Dim I As Long, J As Long, DerniereLigne As Long
Dim MonTableau As Variant
 
 
    'chemin à adapter
    Fichier = ActiveWorkbook.Path & "\Fichier source.txt"
    Set ShImport = Sheets("Feuil1")
    Set ShMaj = Sheets("Feuil2")
    With ShMaj
         .Cells.Clear
         .Range(.Cells(1, 1), .Cells(1, 4)) = Array("Date", "Heures", "Module", "Texte")
    End With
 
    With ShImport
         .UsedRange.Clear
         .QueryTables.Add("TEXT;" & Fichier, ShImport.[A1]).Refresh
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
 
    J = 3
    With ShImport
        For I = 1 To DerniereLigne Step 3
            MonTableau = Split(.Cells(I, 1).Value, Chr(32))
            Debug.Print .Cells(I, 1) & " : " & UBound(MonTableau)
            ShMaj.Cells(J, 1) = MonTableau(2)
            ShMaj.Cells(J, 2) = MonTableau(3)
            ShMaj.Cells(J, 3) = MonTableau(4)
            ShMaj.Cells(J, 4) = .Cells(I + 1, 1).Value
            J = J + 1
        Next
        .Cells.EntireColumn.AutoFit
    End With
 
    Set ShImport = Nothing
    Set ShMaj = Nothing
 
End Sub

**Pierre Fauconnier** · 09/01/2021, 16h46

Salut.

C'est clairement un boulot pour Power Query, genre trois clics de souris (onglet données...), surtout en XL365...

**78chris** · 09/01/2021, 17h12

Bonjour

Solution PowerQuery

Mettre à jour le chemin d'accès au fichier en respectant la casse puis Données, Actualiser Tout

**Pierre Fauconnier** · 09/01/2021, 17h23

Merci Chris pour la mise en pratique

**stef3700** · 09/01/2021, 17h52

Chris désolé je ne comprend pas ton explication.

celas dit la macro de Eric fonctionne parfaitement pour moi.
pas contre il me faudrait si possible pourvoir ajouter des colonnes depuis Modules
M01.222.1D en 3 colonnes de type M01 avec 222 avec 1D Voir photos

**78chris** · 09/01/2021, 19h05

RE

Envoyé par stef3700

Chris désolé je ne comprend pas ton explication.

Tu ne comprends pas quoi dans
"Mettre à jour le chemin d'accès au fichier en respectant la casse puis Données, Actualiser Tout" ?

**stef3700** · 09/01/2021, 21h21

Bon voilà moi, j'ai un message qui me dit que ma version ne fonctionne pas avec celle du fichier de Chris. Mais qui fonctionne bien avec celle d'Eric.
Pourtant, j'ai Excel 365 ProPlus ????
Je perds la Tête..

**78chris** · 09/01/2021, 22h17

RE

Peux-tu joindre une copie d'écran du message ?

Invité · 10/01/2021, 04h51

Envoyé par stef3700

Au cas où cette solution pourrait servir encore :

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
49
50
51
52
53
54
55
56
57
58
59
 
Sub ImportFichierTexte()
 
Dim Fichier As String
Dim ShImport As Worksheet, ShMaj As Worksheet
Dim I As Long, J As Long, DerniereLigne As Long
Dim MonTableau As Variant
 
 
    'chemin à adapter
    Fichier = ActiveWorkbook.Path & "\Fichier source.txt"
    Set ShImport = Sheets("Feuil1")
    Set ShMaj = Sheets("Feuil2")
    With ShMaj
         .Cells.Clear
         .Range(.Cells(1, 1), .Cells(1, 6)) = Array("Date", "Heures", "Module", "Adresse", "Direction", "Texte")
    End With
 
    With ShImport
         .UsedRange.Clear
         .QueryTables.Add("TEXT;" & Fichier, ShImport.[A1]).Refresh
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
 
    J = 3
    With ShImport
        For I = 1 To DerniereLigne Step 3
            MonTableau = Split(.Cells(I, 1).Value, Chr(32))
            Debug.Print .Cells(I, 1) & " : " & UBound(MonTableau)
            ShMaj.Cells(J, 1) = MonTableau(2)
            ShMaj.Cells(J, 2) = MonTableau(3)
            ShMaj.Cells(J, 3) = Split(MonTableau(4), ".")(0)
            ShMaj.Cells(J, 4) = Split(MonTableau(4), ".")(1)
            ShMaj.Cells(J, 5) = Split(MonTableau(4), ".")(2)
            ShMaj.Cells(J, 6) = .Cells(I + 1, 1).Value
            J = J + 1
        Next
    End With
 
    With ShMaj
         With .UsedRange
              .EntireColumn.AutoFit
              With .Borders
                   .LineStyle = xlContinuous
                   .Weight = xlThin
              End With
              With .Rows(2)
                   .Borders(xlEdgeRight).LineStyle = xlNone
                   .Borders(xlEdgeLeft).LineStyle = xlNone
                   .Borders(xlInsideVertical).LineStyle = xlNone
              End With
         End With
         .Range(.Cells(1, 1), .Cells(1, 5)).EntireColumn.HorizontalAlignment = xlCenter
    End With
 
    Set ShImport = Nothing
    Set ShMaj = Nothing
 
End Sub

**Pierre Fauconnier** · 09/01/2021, 17h58

On ne dit pas que la macro d'Eric ne fonctionne pas

On propose une autre solution en XL365 qui passe par Power Query et qui ne requiert pas de VBA (le fichier peut rester en XLSX sauf bien sûr s'il contient d'autres macros). Evidemment, ça demande de prendre Power Query en mains, comme VBA demande d'être pris en mains...

De plus, le code VBA proposé contient des valeurs en dur (hard coding) ce qui rend la macro peu portable. Il est primordial pour moi de déplacer les valeurs reprises en dur dans le code (le chemin, les noms de feuilles, etc...) dans un tableau structuré ou dans des plages nommées (comme dans la proposition de Chris). Ca devrait, de mon point de vue, être systématiquement proposé dans nos réponses pour qu'on arrête petit à petit de "faire du hard coding" à tout va.

**stef3700** · 09/01/2021, 18h35

Pierre
je n'ai jamais dit que la macro ne fonctionne pas

Comme je suis novice je demande de l'aide a mon problème tout simplement

**Pierre Fauconnier** · 09/01/2021, 18h47

Nous sommes bien d'accord

**Pierre Fauconnier** · 10/01/2021, 05h51

Si la solution d'Eric te convient et fonctionne, et que tu sais la faire évoluer selon tes besoins, c'est parfait. Utilise-là. C'est intéressant qu'il y ait plusieurs solutions possibles à un problème.

Power Query a été créé pour éviter à des non-informaticiens de devoir mettre les mains dans le cambouis pour réaliser des opérations dont tout utilisateur a besoin, alors même qu'il n'est pas programmeur. Une toute grosse majorité des besoins en Power Query concerne l'acquisition "simple" de données externes, contenues par exemple dans des txt ou csv, requérant très peu de manipulations, même si Power Query propose bien plus que cela. Il est dommage de s'en passer et de réinventer du VBA à chaque besoin, mais si tu te sens plus à l'aise en VBA, pourquoi pas?

Pour ma part, je regrette que Power Query ne soit pas mieux maîtrisé sur le forum et ne sois pas proposé chaque fois que c'est utile, car c'est en forgeant qu'on devient forgeron, et c'est en tapant sur un clou qu'il finit par entrer.Je regrette également que, même en VBA, la solution n'utilise pas les tableaux structurés.

**78chris** · 10/01/2021, 08h52

Bonjour à tous

J'ai modifié la requête :

un argument ayant été ajouté à l’indexation dans PowerQuery sur 365, j'ai enlevé cet argument afin que la requête soit compatible avec toutes les versions (testée sur 2010 et 365)
éclaté la colonne module en 3 colonnes

**stef3700** · 11/01/2021, 18h08

Merci, je pense approfondir le Power Query pour ma part, je ne connais pas.
Encore merci

Importation automatique txt en Excel [XL-365]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager