Re : ouvrir des fichiers commancant par t_s
re
merci pour votre aide, mais cela ne fonctionne pas.
J'ai mis cela en forme, mais il ouvre tous les fichiers.
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = fso.GetFolder(ThisWorkbook.Path)
Set fichiers = repertoire.Files
Application.ScreenUpdating = False
For i% = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Select
Range(Range("A65536").End(xlUp), Range("j2")).Rows.EntireRow.Delete
Next
For Each f In fichiers
NomComplet = fso.buildpath(repertoire, f.Name)
If Left(f.Name, 4) = "t_sr" And NomComplet <> ThisWorkbook.FullName And fso.GetExtensionName(NomComplet) = ".dat" Then
Workbooks.Open Filename:=NomComplet
For i% = 1 To Sheets.Count
Workbooks(fso.GetBaseName(NomComplet) & "." & fso.GetExtensionName(NomComplet)).Activate
Sheets(i).Select