Discussion :

[W.Dogui]

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

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

[SfJ5Rpw8]

Bonjour,

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

[W.Dogui]

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 .

Code :

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

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

[W.Dogui]

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