Macro concaténation de fichiers

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 !

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

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 !

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:

---

1 2 3 4

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

---

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

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é.

Salut, j'étais justement en train d'écrire un message afin de signaler qu'après vérification j'ai tout simplement corrigé le problème en ajoutant "And sFichier Like "Tss_data*". J'ai toujours une erreur mais cette fois ci, c'est à la fin. J'ai une erreur dîtes "Erreur d'exécution '13' incompatibilité du type" sur cette ligne (en rouge):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub MepFeuilles() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If (Ws.Name <> ShParam.Name) And (Ws.Name Like sNomFeuillesDatas & "*") Then With Ws .Activate .Tab.ColorIndex = 19 .Columns("A:" & LettreColMax).Columns.AutoFit .Range("A1").Select End With End If Next Ws End Sub

---

Ce doit être un problème de variable dans la macro. Je continue à chercher de mon côté.

Cordialement,
Madjid

Faire du Cross Posting n'est pas vraiment « chercher de son côté » !

Si j'ai fais du Cross Posting, c'est justement parce que je n'ai rien trouvé depuis hier après midi de mon côté...
Néanmoins, le fait d'enlever un columns et d'inverser les lignes 5 et 6 ne règlent malheureusement pas le problème.

Merci quand même.;)

Salut, tu vas où là ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit   Dim LettreColMax As String ......   Sub SaveDatas(Optional Dummy As String) ..... LettreColMax = NumCol2Lettre(Application.Columns.Count) ..... End Sub

---

En fait je n'ai pas cherché à régler le problème vu qu'il n'y en a pas …
… en attendant la réponse à la question pourtant posée par deux fois ‼

Certes il y a bien eu une réponse mais totalement à côté …

Mes remarques servent juste à améliorer la logique du code …

Citation:

---

Envoyé par kiki29

Salut, tu vas où là ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit   Dim LettreColMax As String ......   Sub SaveDatas(Optional Dummy As String) ..... LettreColMax = NumCol2Lettre(Application.Columns.Count) ..... End Sub

---

---

Salut kiki29,
Qu'entends tu par "tu vas où là?"
Vraiment désolez mais ce n'est que la 3eme macro que je traite, et les 2 précédentes étaient simpliste. Celle ci est nettement plus compliqué (pour moi), je ne saisi pas complètement toute les lignes du code.

Cordialement

Salut, voilà j'ai réussis (en partie) ce que je souhaitais réaliser à la base. Avec cette macro, je peux concaténer tout les fichiers .csv d'un dossier en un seul fichier .csv .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub importDonnees() Dim principal As ThisWorkbook Dim repertoire As String, Fichier$ Application.ScreenUpdating = False Set principal = ThisWorkbook repertoire = "C:\Documents and Settings\...\Bureau\Test_Macro\" Fichier = Dir(repertoire & "*.csv") Do While Fichier <> "" Workbooks.Open (repertoire & Fichier) If Fichier Like "Tss_data*" Then ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) ActiveWorkbook.Close Fichier = Dir End If Loop ChDir "C:\Documents and Settings\...\Bureau\Test_Macro\Nouveau\" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\...\Bureau\Test_Macro\Nouveau\Finale.csv" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=True End Sub

---

Néanmoins je ne trouve pas le moyen de "dire" à la macro :
-Va dans le dossier;
-Prends les fichiers de nom identiques (les 14 premieres caractères surtout : Tss_dataJJMMAA);
-Fusionne les;
-Enregistre le en .csv;
-Réitère l'opération pour tout les fichiers.

Je sais pas trop si vous voyais ce que je souhaite réaliser.
Merci d'avance pour vos aide et conseil,
Bonne journée.

Petite mise à jour, si je trouve un jour ça pourra surement servir à quelqu'un d'autre. Après avoir fait pas mal de recherches (Sans poster sur d'autre forum ou je ne sais quoi), j'ai opté pour une solution.
Mon idée est la suivante:
Etant donnée que tout les noms de fichiers ont la même structure, et que ce qui m'intéresse est la date, j'ai décidé de prendre le milieu du nom de fichier et de les comparer entre eux.
Pour ce faire, j'ai écris le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub importDonnees() Dim principal As ThisWorkbook Dim repertoire As String Dim NomFichierActif As String Dim DateActiveP As String Dim DateActive As String Dim Init As Boolean Application.ScreenUpdating = False Set principal = ThisWorkbook repertoire = "C:\Documents and Settings\9403095F\Bureau\Test_Macro\" NomFichierActif = Dir(repertoire & "*.csv") Init = True Do While NomFichierActif <> "" DateActive = Mid(NomFichierActif, 9, 6) ' Prendre la date 1 sur le nom d'un fichier If DateActiveP = DateActive Then ' Comparer date 1 et date 2 Workbooks.Open (repertoire & NomFichierActif) ' copie ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) ' copie ActiveWorkbook.Close True NomFichierActif = Dir DateActiveP = DateActive ' mettre la date 1 dans la date 2 Init = False ChDir "C:\Documents and Settings\9403095F\Bureau\Test_Macro\Nouveau\" End If Loop End Sub

---

Néanmoins, le programme ne fonctionne pas. Il semblerait qu'il bloque au lignes suivante (en gras dans le programme) :
Workbooks.Open (repertoire & NomFichierActif) ' copie ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) ' copie

En espérant optenir une réponse ou un petit conseil d'une ame charitable :mrgreen:,
Bonne journée !

Citation:

---

Envoyé par Msisou

Salut, j'étais justement en train d'écrire un message afin de signaler qu'après vérification j'ai tout simplement corrigé le problème en ajoutant "And sFichier Like "Tss_data*". J'ai toujours une erreur mais cette fois ci, c'est à la fin. J'ai une erreur dîtes "Erreur d'exécution '13' incompatibilité du type" sur cette ligne (en rouge):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub MepFeuilles() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If (Ws.Name <> ShParam.Name) And (Ws.Name Like sNomFeuillesDatas & "*") Then With Ws .Activate .Tab.ColorIndex = 19 .Columns("A:" & LettreColMax).Columns.AutoFit .Range("A1").Select End With End If Next Ws End Sub

---

Ce doit être un problème de variable dans la macro. Je continue à chercher de mon côté.

Cordialement,
Madjid

---

Bonjour,

après avoir testé cette superbe macro (merci kiki), j'ai effectivement le même message d'erreur. Mais ce message d'erreur n'empêche en rien la macro de fonctionner et de fournir les résultats attendus... Néanmoins, cette erreur me taribiscottait. Avant tout, je précise que je débute dans les macro. J'ai commencé par regarder les valeurs prises par la variable LettreColMax. C'est un string qui prend, suite à une boucle, toujours la valeur XFD.

Ne comprenant pas ce que faisait cette fonction et surtout ce que cela apportait, j'ai enlevé la ligne n° 8 et "oh miracle" tout fonctionne parfaitement bien. Test effectué sur différents types de fichiers et avec plus ou moins de colonnes...


Si l'auteur peut m'indiquer ce qu'il avait en tête à la création de cette macro, je suis très intéressé de le savoir. (peut être avec un peu plus de commentaires dans le code aurait permis de comprendre le pourquoi du comment et cela est très utile aux débutants comme moi)

Merci,
Samuel