Discussion :

[Msisou]

Salut à tous et à toutes !

Je vous expose mon problème : J'ai une multitude de fichiers .csv (un peu plus de 2500), et ils sont nommés de la manière suivante (sur 3 années différentes):

Tss_data0102130800
Tss_data0102130856
Tss_data0506131625

Les 6 premiers chiffres déterminent la date (JJMMAA) et les 4 derniers l'heure.
Voilà, ce que je voudrais c'est de trouver une solution afin de concaténer par jour. C'est à dire qu'au lieu d'avoir 3-4 fichiers par jour, je n'en ai plus qu'un seul. J'ai pensé à une macro qui pourrait, par exemple, ne prendre en compte que les 14 premiers caractères des noms de fichiers, et concaténer les fichiers identiques. Néanmoins, je n'ai aucune idée de comment réaliser cette macro.

Merci d'avance pour votre aide et conseil.
Bonne journée à tous et à toutes !

[kiki29]

Salut, à adapter à ton contexte, fusionne les XLS ou les CSV

[Msisou]

Merci pour votre réponse rapide. Je regarde ça et je reviens vers vous pour vous dire où ca en est.

EDIT: Après avoir essayer de comprendre la macro, je ne vois pas comment l'adapter à mon problème. J'entends bien que ce que vous m'avez envoyé sert à fusioner des fichier .csv néanmoins, je ne vois pas où ces derniers sont sauvegardé, ni comment lui dire qu'il ne doit prendre en compte que les 14 premiers caractères pour pouvoir les fusioner par jours. Je suis débutant dans le monde des macros, et j'aimerais en connaitre d'avantage étant donné que ces dernière sont très utiles et permettent de gagner un maximum de temps.

Merci d'avance, je retourne à mes recherches !

[kiki29]

Salut, via les Options et Checkboxes tu sélectionnes qqs paramètres.
"Sélection Dossier" permet de sélectionner le dossier racine ( et sous dossiers si recherche récursive cochée ) concerné par l'import.

cet import et fusion des csv se fait dans la feuille Datas_xxx, xxx s'incrémente si limite du nombre de lignes dépassé. il faut sauver ces Datas_xxx via "Save Datas_xxx".

Dans un premier temps qqch comme ceci devrait fonctionner, avant de faire 3 boucles imbriquées une sur les années, une sur 12 mois et une autre sur 31 jours.

dans la procédure ListeFichiersDossier(sChemin As String, bInclureSousDossiers As Boolean) faire l'ajout : And sFichier Like "Tss_data010213*"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.....
	If sFichier <> ThisWorkbook.Name And UCase$(TypeFichier) = UCase(FSO.GetExtensionName(sFichier)) And _
         sFichier Like "Tss_data010213*" Then
.....

[Msisou]

Merci pour l'astuce, je vais l'essayer aujourd'hui, et revenir vers vous pour vous dire où cela en est.

EDIT à 9:26
Lorsque je fais l'ajout de <<And sFichier Like "Tss_data010213*">> dans ListeFichiersDossier, ma macro ne trouve plus les fichiers .csv (une fenêtre info s'ouvre me disant qu'il n'y en a pas dans le dossier). J'ai cherché d'où l'erreur pouvait venir, j'ai essayé de trouvé par moi même (en recherchant des infos sur l'outil like notamment) mais je n'ai pas trouvé.
Désolez si mes problèmes semblent idiot, mais j'aimerais comprendre pourquoi cela ne marche pas, est- ce un problème avec mes fichiers .csv ? La macro ?

Encore merci

[kiki29]

Salut, le message est suffisamment explicite, je pense, il n'y a pas de fichiers de la forme Tss_data010213* dans le dossier racine concerné.