Sub Test() Dim Fichier As String, Chemin As String Dim i As Long 'Répertoire contenant les fichiers Chemin = "H:\\TRAVAUX STAGIAIRE\test2" Fichier = Dir(Chemin & "\*.*") 'Boucle sur les fichiers Do While Fichier <> "" i = Range("A65536").End(xlUp).Row + 1 ImportText Chemin & "" & Fichier, Cells(i, 1) Fichier = Dir Loop End Sub Sub ImportText(NomFichier As Variant, Cible As Range) Dim QT As QueryTable Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _ NomFichier, Destination:=Cible) With QT 'Définit les séparateur de colonnes dans le fichier txt .TextFileOtherDelimiter = ";" .TextFileSemicolonDelimiter = True .TextFileTextQualifier = xlTextQualifierDoubleQuote .Refresh End With End Sub
Sub ImportText() 'l'instruction ChDir permet de se positionner 'sur un répertoire précis ChDir "***" '*** remplaçant le repertoire où je vais chercher tous mes fichiers textes monfichier = Dir("*.*") While monfichier <> "" Workbooks.Open monfichier monfichier = Dir() Wend End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmonfichier = Dir("*.*")
ChDir "C:\***" '*** correspond au repertoire où je vais chercher tous mes fichiers textes
monfichier = Dir("*.*")correspond à tous les fichiers qu'il va ouvrir à partir de mon répertoire que je lui ais indiqué ?
' Code Visual Basic anglais Sub ouvrir_fichiers() 'l'instruction ChDir permet de se positionner 'sur un répertoire précis ChDir "C:\TRAVAUX STAGIAIRE\autom rappro\test2" monfichier = Dir("*.*") While monfichier <> "" Workbooks.Open monfichier monfichier = Dir() Wend End Sub