Récupérer des données dans de nombreux fichier .csv

Bonjour,

J'aimerai pouvoir récupéréer dans un fichier excel, les données ("Num", "Heure", "Type Bitume", "Tmp. Enr")des lignes correspondant à la données "Tmp. Enr" lorsque celle-ci est supérieur ou égal à 170, et ce dans différent fichier .csv

Est-ce que quelqu'un pourrais m'aider SVP.

Merci

Bonsoir Mélanie,

Dans la mesure ou tu peux utiliser Power Query.

(en addon à partir d'Excel 2010, et en natif à compter de 2016)

Une proposition.

Cordialement.

Merci Zebulon2,

j'ai omis une information très importante dans ma demande, j'ai besoin de récupérer les données dans de nombreux fichier .csv distint.

re,

Dans la mesure ou il sont dans le même dossier, cela ne pose pas de problème.

Cordialement.

Bonjour Mélanie, bonjour Zebulon

On ne connait pas ta version d'excel

Si tu n'as pas PowerQ, voici une solution VBA

Option Explicit
Const sep = ","

Sub relever()
Dim chemin$, Rep As FileDialog

    ' choix du répertoire
    Set Rep = Application.FileDialog(msoFileDialogFolderPicker)
    Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire des fichiers ..."
    Rep.Show
    If Rep.SelectedItems.Count = 0 Then Exit Sub
    chemin = Rep.SelectedItems(1) & "\"

    importCSV chemin

End Sub

Sub importCSV(chemin As String)
Dim fichier$, tbl, ff%, i%, ContenuLigne$

Range("A1").CurrentRegion.Offset(1, 0).ClearContents
i = 1
fichier = Dir(chemin & "*.csv")
Do While fichier <> ""
    ff = FreeFile
    Open chemin & fichier For Input As #ff
        Do While Not EOF(1)
            Line Input #ff, ContenuLigne
            tbl = Split(ContenuLigne, sep)
            If IsNumeric(tbl(25)) And tbl(25) >= 170 Then
                i = i + 1
                Cells(i, 1) = tbl(0)
                Cells(i, 2) = tbl(1)
                Cells(i, 3) = tbl(5)
                Cells(i, 4) = tbl(25)
            End If
        Loop
    Close #ff

fichier = Dir
Loop

End Sub