Coller un fichier peut importe sont nom

Bonjour

Je débute sur Excel en macro

Je souhaite faire un programme en vba

Je recherche par un bouton « sélection »

Des dossiers text (ils on n’importe quel noms car ils ont des noms différents)

Je veux les ouvrire ,récupérer toutes les cellules et les coller dans un autre classeur

Et les coller en b6

Merci à vous

Bonjour,

si les fichiers sont dans un même répertoire, cette macro permet de choisir le répertoire.

à tester,

Sub Test_Lire_Fichier_Texte()
'ajouter la référence Microsoft Scripting Runtime
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim texte()
Dim i As Integer
Dim fd As FileDialog, rw As Long, lignes

Set oFSO = New Scripting.FileSystemObject
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Set fso = CreateObject("Scripting.FileSystemObject")

With fd
   .AllowMultiSelect = False
   ttt = .Show    'afficher la fenêtre "Choisir le répertoire"
   If ttt = 0 Then Exit Sub
   oFolder = .SelectedItems(1)  'répertoire choisi
   Set oFoFolder = fso.GetFolder(oFolder)
End With

For Each oFile In oFoFolder.Files
    Set oFl = oFSO.GetFile(oFile)
    Set oTxt = oFl.OpenAsTextStream(ForReading)

      While Not oTxt.AtEndOfStream
       i = i + 1
       ReDim Preserve texte(i)
       texte(i) = oTxt.ReadLine
      Wend
Next
' copier des données à partir de la cellule A1 de la feuille active
ActiveSheet.[A1].Resize(UBound(texte)) = Application.Transpose(texte)
End Sub