Bonjour et merci d'avance
J'ai ceci qui fusionne fichiers texte:
J'aimerais si possible qu'il les fusionnent par date/heure de création aulieu de nom de files
Merci de votre temps
Temjeh
J'ai ceci qui fusionne fichiers texte:
Code:
ChDir ThisWorkbook.Path
chem = ThisWorkbook.Path & "\Download\"
On Error Resume Next
Kill chem & "Notes.txt"
c01 = Dir(chem & "*.txt")
Do Until c01 = ""
c02 = c02 & vbCrLf & Left(c01, Len(c01) - 4) & vbCrLf & CreateObject("scripting.filesystemobject").opentextfile(c00 & c01).readall & vbCrLf
c01 = Dir
Loop
CreateObject("scripting.filesystemobject").createtextfile(chem & "Notes.txt").write c02
Filename = Dir(chem & "*.txt")
J'aimerais si possible qu'il les fusionnent par date/heure de création aulieu de nom de files
Merci de votre temps
Temjeh