extraire des donnée de plusieurs ficiers txt

Sub Bouton1_QuandClic()
Dim chemin As String
Dim nom As String
Dim ligne As Byte

ligne = 1
chemin = ThisWorkbook.Path & '\\\\\\\\'
nom = Dir(chemin & '*.TXT')


Do While nom <> ''
Cells(ligne, 1) = nom
ligne = ligne + 1
nom = Dir
Loop
End Sub

Cliquez pour agrandir...

Option Explicit


Public Sub Variable_Fichiers()
&nbsp; &nbsp; Dim strFichiers()&nbsp; &nbsp; &nbsp; &nbsp; As String, vrtFiles()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As String
&nbsp; &nbsp; Dim fileToOpen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant
&nbsp; &nbsp; Dim bytCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Byte
&nbsp; &nbsp;
&nbsp; &nbsp; ReDim Preserve strFichiers(bytCount)
&nbsp; &nbsp; vrtFiles = Application.GetOpenFilename('*.*, *.*', , 'Fichier de Plus de 255 Column', , True)
&nbsp; &nbsp; Application.ScreenUpdating = False
&nbsp; &nbsp; For Each fileToOpen In vrtFiles
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strFichiers(bytCount) = fileToOpen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bytCount = bytCount + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve strFichiers(bytCount)
&nbsp; &nbsp; Next fileToOpen
&nbsp; &nbsp; Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

vrtFiles()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant

Cliquez pour agrandir...

Option Explicit


Public Sub Variable_Fichiers()
&nbsp; &nbsp; &nbsp; &nbsp; Dim strFichiers()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As String, vrtFiles()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant
&nbsp; &nbsp; &nbsp; &nbsp; Dim fileToOpen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant
&nbsp; &nbsp; &nbsp; &nbsp; Dim bytCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Byte
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; vrtFiles = Application.GetOpenFilename('*.*, *.*', , 'Fichier de Plus de 255 Column', , True)
&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating = False
&nbsp; &nbsp; &nbsp; &nbsp; For Each fileToOpen In vrtFiles
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve strFichiers(bytCount)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strFichiers(bytCount) = fileToOpen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bytCount = bytCount + 1
&nbsp; &nbsp; &nbsp; &nbsp; Next fileToOpen
&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

If Right(Fichier.Name, 3) = 'xls' Then

Cliquez pour agrandir...

If Right(Fichier.Name, 3) = 'txt' Then

Cliquez pour agrandir...

Option Explicit

Public Sub Variable_Fichiers()
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim strFichiers()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As String, vrtFiles()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim fileToOpen&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Variant
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim bytCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; As Byte
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; On Error GoTo errorHandler
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vrtFiles = Application.GetOpenFilename('*.*, *.*', , 'Fichier de Plus de 255 Column', , True)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating = False
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each fileToOpen In vrtFiles
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve strFichiers(bytCount)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strFichiers(bytCount) = fileToOpen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bytCount = bytCount + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next fileToOpen
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating = True
&nbsp; &nbsp; On Error GoTo 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub
errorHandler:
&nbsp; &nbsp; Application.ScreenUpdating = True
&nbsp; &nbsp; On Error GoTo 0
End Sub

Cliquez pour agrandir...