Bonjour,
Je suis nouveau dans la programmation VBA sous excel.
dans une macro, je cherche à ouvrir un par un les fichiers ''.dat'' (au format text) commancant par 't_sr' du repertoire.
J'ai commencé par trouver ceci, qui ouvre tous les fichiers .dat du repertoire.
Le fichier excel 'macro' est dans le repertoire source.
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = fso.GetFolder(ThisWorkbook.path)
Set fichiers = repertoire.Files
For Each f In fichiers
NomComplet = fso.buildpath(repertoire, f.Name)
If NomComplet <> ThisWorkbook.FullName And fso.GetExtensionName (NomComplet) = ".dat" Then
Workbooks.Open Filename:=NomComplet
est -il possible de la modifier pour ouvrir que les fichiers commancant par 't_sr'
Merci beaucoup,
Je suis nouveau dans la programmation VBA sous excel.
dans une macro, je cherche à ouvrir un par un les fichiers ''.dat'' (au format text) commancant par 't_sr' du repertoire.
J'ai commencé par trouver ceci, qui ouvre tous les fichiers .dat du repertoire.
Le fichier excel 'macro' est dans le repertoire source.
Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = fso.GetFolder(ThisWorkbook.path)
Set fichiers = repertoire.Files
For Each f In fichiers
NomComplet = fso.buildpath(repertoire, f.Name)
If NomComplet <> ThisWorkbook.FullName And fso.GetExtensionName (NomComplet) = ".dat" Then
Workbooks.Open Filename:=NomComplet
est -il possible de la modifier pour ouvrir que les fichiers commancant par 't_sr'
Merci beaucoup,