Concaténation de fichier csv avec gestion d'entête

Bonjour,

Je voudrais concaténer tout les fichiers CSV du répertoire "CSV" vers un fichier ConcatCSV.csv
- Tous les fichiers CSV ont la même entête, donc dans le fichier CSV final "ConcatCSV.csv" l'entête doit être copier que sur la première ligne.
- Les fichiers doivent être ajouter dans l'ordre, ils suivent ce format: Machine1_OPC_YYYY-MM-JJ_hhHmm_ss (un fichier toutes les 10 minutes) donc on peut ne pas tenir compte des secondes.
- Créer un nouveau fichier final tout les mois

autres étapes:
- Supprimer toutes les lignes identique du nouveau fichier ( limiter la recherche sur x dernière ligne)
- Remplacer toutes les valeurs "undef" par 0 dans le nouveau fichier ( limiter la recherche sur x dernière ligne)

Je vous fait suivre le début de mon travail en pièce jointe.

Bonjour,

Power Query semble l'outil adapté pour votre demande
https://www.youtube.com/watch?v=MigB52ozZ-w

Citation:

---

Envoyé par dudux2

Je vous fait suivre le début de mon travail en pièce jointe.

---

Elle est où la pièce jointe ?

Bonjour,
Oh oui je rajoute mon fichier avec le code
Pièce jointe 662236

Je rencontre une erreur de compilation "erreur de syntaxe" que je n'arrive pas à résoudre... lord de l'appel de mon Sub: "DeplacerFichier(FullPathCsvFile, CheminCsvAchives)"

Code:

---

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

Private Sub DeplacerFichier(FullPathFile As String, DestinationPath As String) Dim objOFS As Object   Set objOFS = CreateObject("Scripting.FileSystemObject") Rem Test si au moins nun fichier present If Dir(FullPathFile) <> "" Then objOFS.moveFile FullPathFile, DestinationPath End If   Set objOFS = Nothing   End Sub

---

PS: C'est normale de ne pas pouvoir modifier son premier poste? J'aurais aimé le mettre à jour...

D'avance Merci

Bonjour,
Comme expliqué plus haut, Power Query est l'outil dédié à ce genre d'opération.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Comme expliqué plus haut, Power Query est l'outil dédié à ce genre d'opération.

---

Bonjour,

Mon code est à 90% fonctionnel, je souhaite le terminé, si j'en vois la nécessité de faire une mise à jour avec Power query pour des options plus avancées dans le tri de données, je referais mon code.
Pour le moment, je souhaite juste trouvé la source de mon erreur.

Bonjour,

Citation:

---

Je rencontre une erreur de compilation "erreur de syntaxe" que je n'arrive pas à résoudre... lord de l'appel de mon Sub: "DeplacerFichier(FullPathCsvFile, CheminCsvAchives)"

---

Il aurait été plus judicieux de publier la ligne où a lieu l'appel de cette procédure. Cela nous aurait permis de vous donner immédiatement la raison du problème

J'ai ouvert votre classeur et j'ai compilé le programme. L'erreur de syntaxe à lieu sur cette ligne DeplacerFichier(FullPathCsvFile, CheminCsvAchives). Vous utilisez l'appel comme une fonction et pas comme une SUB. Enlevez les parenthèses et cela ira nettement mieux soit DeplacerFichier FullPathCsvFile, CheminCsvAchives

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Il aurait été plus judicieux de publier la ligne où a lieu l'appel de cette procédure. Cela nous aurait permis de vous donner immédiatement la raison du problème

J'ai ouvert votre classeur et j'ai compilé le programme. L'erreur de syntaxe à lieu sur cette ligne DeplacerFichier(FullPathCsvFile, CheminCsvAchives). Vous utilisez l'appel comme une fonction et pas comme une SUB. Enlevez les parenthèses et cela ira nettement mieux soit DeplacerFichier FullPathCsvFile, CheminCsvAchives

---

En effet, j'ai fais l’amalgame entre sub et function

Je vais creusé du côté de Power Query en effet, cela me parait plus adapté pour certaine section de mon code que je n'ai pas encore réalisé.

Merci beaucoup

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Il aurait été plus judicieux de publier la ligne où a lieu l'appel de cette procédure. Cela nous aurait permis de vous donner immédiatement la raison du problème

J'ai ouvert votre classeur et j'ai compilé le programme. L'erreur de syntaxe à lieu sur cette ligne DeplacerFichier(FullPathCsvFile, CheminCsvAchives). Vous utilisez l'appel comme une fonction et pas comme une SUB. Enlevez les parenthèses et cela ira nettement mieux soit DeplacerFichier FullPathCsvFile, CheminCsvAchives

---

Merci beaucoup

J'ai en effet fait l’amalgame d'écriture entre Sub et Function...

Je vais faire des essais avec POWER QUERY qui pourras alléger les ressources pour certaines tâches que j'ai à réalisé.

Bonjour,

Citation:

---

Je vais creusé du côté de Power Query en effet, cela me parait plus adapté pour certaine section de mon code que je n'ai pas encore réalisé.

---

C'est la meilleure décision que vous pourrez prendre.
J'ai 25 ans d'expérience en VBA mais depuis 5 ans, je n'utilise que Power Query pour charger et transformer les données. On gagne en temps de développement.
Pour charger les fichiers présents dans un répertoire en filtrant le type de fichier, transformer, ajouter des colonnes. Cela ne prends pas plus de 30 minutes.