ouvrir plusieurs fichier texte dans une seule feuille

**popoye** · 21/04/2008, 09h57

Bonjour,

Voila j'ai créer une macro qui permet d'ouvrir dans plusieurs classeur des fixhiers texte.
Mais ce dont j'aurais besoin c'est une macro qui me permettte d'ouvrir plusieurs fichiers texte dans une seule et meme feuille.
Voila le code que j'ai tapé pour le moment.

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
 
Sub test()
    ClasseurReference = ActiveWorkbook.Name
    Dim ligne As Integer
    Dim nouveau As Integer
    Set fichcherche = Application.FileSearch
    x = fichcherche.FoundFiles.Count
    With fichcherche
        .LookIn = ActiveWorkbook.Path
        .Filename = "*.txt"
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
                Workbooks.OpenText Filename:=.FoundFiles(i)
                ligne = 1
                Do While Left(Cells(ligne, 1), 4) <> "@end"
                    ligne = ligne + 1
                Loop
                MsgBox (ligne)
                Range(Cells(1, 1), Cells(ligne, 1)).Copy
                ActiveSheet.Move Before:=Workbooks(ClasseurReference).Sheets(1)
                nouveau = 1
                If ClasseurReference.Sheets(1).Cells(nouveau, 1) <> "" Then
                    Do While ClasseurReference.Sheets(1).Cells(nouveau, 1) <> ""
                        nouveau = nouveau + 1
                    Loop
                Else
                    Range(Cells(nouveau, 1)).Paste
                End If
 
               ' If Cells(nouveau, 1) <> "" Then
              '      nouveau = nouveau + 1
               ' Else
                    'ActiveSheet.Paste
               ' End If
 
            Next i
        Else
            MsgBox ("Aucun fichier n'a été trouvé.")
        End If
    End With
End Sub