Fusion csv avec ajout colonne

bonjour,
j'ai déjà parcouru les discussions dans ce forum en relation avec la fusion des fichiers csv mais je n'ai pas pu adapter les solutions proposées à mon besoin.
voici ce que je souhaiterai faire en utilisant VBA d'Excel 2010:
dans mon fichier Fusion_Export récupérer tous les enregistrements des fichiers csv du même dossier et ajouter sur la colonne O le nom du fichier source (sans ou avec l’extension csv) c'est pas grave.
je mets deux csv exemple .
Si on trouve une solution pour ce problème c'est déjà très bien. la prochaine étape pour moi sera de convertir la date et heure de la colonne A en plage horaire (HH:00).
D'avance merci de votre soutien.
--------------------------------------------------------------------------
Fichier joint dans vos discussions

-------------------------------

Bonjour,

il y as beaucoup d'exemples sur le forum de traitement de fichier csv.. montre nous ou tu en est de ton code ..

bonjour,
Tout d'abord merci pour ce retour rapide et pour ton intérêt.
le code suivant est le plus simple (à mon sens ;) je suis nul en VBA):
il me permet d'avoir la consolidation de tous mes csv mais avec quelques bugs:
- je dois supprimer manuellement les entêtes
- le résultat est sur la feuille de calcul en format csv, je dois donc enregistrer la feuille dans un csv et le reconvertir en EXCEL :D.

Code:

---

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

Option Explicit   Sub importDonnees() Dim principal As ThisWorkbook Dim repertoire As String, fichier$ Application.ScreenUpdating = False Set principal = ThisWorkbook repertoire = "C:\My LAB\2013\" fichier = Dir(repertoire & "*.csv") Do While fichier <> "" Workbooks.Open (repertoire & fichier) ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(1).Range("a" & Rows.Count).End(xlUp).Offset(1) ActiveWorkbook.Close fichier = Dir Loop End Sub

---

bonjour,
mon problème est résolu.
j'ai pu trouver la solution tout seul.