Concatener .txt par ordre de création

[Temjeh]

Bonjour et merci d'avance

J'ai ceci qui fusionne fichiers texte:

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

 

[Dranreb]

Re : Concatener .txt par ordre de création

Bonjour.

Je ne connaissais pas les méthodes ReadAll ni Write de l'objet renvoyé par la méthode OpenTextFile de l'objet FileSystemObject.
Essayez ce classeur, non testé.

 

[Temjeh]

Re : Concatener .txt par ordre de création

Impeccable!

Merci beaucoup

En plus regarde aussi les secondes. Très bon car j'en ai aussi de la même minute.

Bonne journée

Temjeh

 

[Temjeh]

Re : Concatener .txt par ordre de création

Rebonjour

Ou puis-je y mettre une gestion d'erreur si le folder est vide. Rien à fusionner

Merci beaucoup

Temjeh

 

[Dranreb]

Re : Concatener .txt par ordre de création

Bonsoir.
Si le dossier ThisWorkbook.Path & "\Download\" est vide NomFic va être "" dès le Dir("*.txt"). On ne passera donc pas du tout dans la boucle et N restera = 0. Il suffit de tester derrière le Loop :

If N = 0 Then MsgBox "Pas de fichier *.txt sur " & CurDir, vbCritical, _
   "Assemblage Notes.txt": Exit Sub

 

[Temjeh]

Re : Concatener .txt par ordre de création

Parfait merci beaucoup