Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Concatener .txt par ordre de création

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Temjeh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Temjeh

XLDnaute Accro
Bonjour et merci d'avance

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
 
Trier par date Trier par votes
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é.
 

Pièces jointes

Vote positif 0 Vote négatif
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 :
VB: 
If N = 0 Then MsgBox "Pas de fichier *.txt sur " & CurDir, vbCritical, _
   "Assemblage Notes.txt": Exit Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
81 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…