Discussion :

[Cortal]

Bonjour,

J'ai un fichier excel avec une liste de valeurs dans la colonne A.
Ces valeurs correspondent à des noms de fichiers texte (sans le .txt) stockés dans un même dossier.
Je voudrais créer une macro qui parcours la colonne A et qui pour une valeur en Ai va chercher le contenu du fichier texte dons le nom correspond à la valeur et insère l'ensemble de son contenu dans la cellule Bi.
Pour l'instant j'ai trouvé une macro qui insère en B1 le contenu d'un fichier texte que l'on sélectionne à l'ouverture d'une fenêtre:

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
Sub LireFichierTexte()
Dim Texte As String
Dim Ligne As String
Dim Index As Integer
Dim Chemin 
On Error GoTo LigneErreur 
Chemin = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") 
If Chemin <> False Then 
Index = FreeFile 
Open Chemin For Input As #Index 
Do While Not EOF(Index) 
Line Input #Index, Ligne 
If Texte = "" Then
Texte = Ligne 
Else 
Texte = Texte & vbCrLf & Ligne 
End If 
Loop 
Close #Index 
[Bi] = Texte
End If
Exit Sub 
LigneErreur:
MsgBox "Erreur !"
End Sub

Au final je voudrais une macro qui ne nécessite pas une sélection de fichier via une fenêtre, mais plutôt quelque chose d'automatique.

Je vous remercie pour votre aide

[Theze]

Bonjour,

Une piste :

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 LireFichierTexte()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Texte As String
    Dim Ligne As String
    Dim Index As Integer
    Dim Chemin As String
    Dim Truc As String
 
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    Truc = "ce que je cherche" 'ici la cellule ou variable contenant la valeur cherchée
 
    Set Cel = Plage.Find(Truc, , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
 
        Chemin = Cel.Value & ".txt"
 
        Index = FreeFile
 
        Open Chemin For Input As #Index
 
        Do While Not EOF(Index)
 
            Line Input #Index, Ligne
 
            If Texte = "" Then
                Texte = Ligne
            Else
                Texte = Texte & vbCrLf & Ligne
            End If
 
        Loop
 
        Close #Index
 
        [Bi] = Texte
 
    End If
 
End Sub

Hervé.