Je suis débutante en vba et mon objectif est de parcourir un répertoire contenant uniquement des fichiers CSV , effectuer la lecture des fichiers et de écrire les données de l'ensemble des fichiers CSV dans une feuille excel.
Voici le code permettant de parcourir le répertoire et de récupérer les données du fichier csv. Par contre, je n'arrive pas à avoir des idées pour l'écriture dans excel. Si quelqu'un pourrait me renseigner, je le remercie énormèment car je galère en ce moment.

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
18
19
20
21
22
23
24
25
 
Sub ParcourirRepertoire()
 
    Dim stRep
    Dim oFSO, oFl, f, Nom_Fichier, chaine, fso, fCsv, tb
    Const ForReading = 1
 
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    stRep = "C:\Documents and Settings\kmakhtas\Bureau\OperateursGestform\"
 
    If oFSO.FolderExists(stRep) Then
        For Each oFl In oFSO.GetFolder(stRep).Files
 
            Set fCsv = oFSO.openTextFile(stRep & oFl.Name, ForReading)
            If Not fCsv.AtEndOfStream Then fCsv.ReadLine
            While Not fCsv.AtEndOfStream
                tb = Split(fCsv.ReadLine, ";")
                If UBound(tb) = 6 Then
                    MsgBox "Date : " & tb(0) & vbCrLf & "Heure début : " & tb(1) & vbCrLf & "Heure Fin : " & tb(2) & vbCrLf & "Login : " & tb(3) & vbCrLf & "Activité : " & tb(4) & vbCrLf & "Degré Urgence : " & tb(5) & vbCrLf & "Avec ou sans Diffusion : " & tb(6)
                End If
            Wend
        Next
    End If
 
End Sub
Je vous remercie d'avance pour toute aide.

Aquarium33