Discussion :

[spaukensen]

Bonjour, je n'ai pas réussi à trouver comment que je peux filtrer les lignes d'un fichier plat pour les importer par la suite dans une feuilles 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Set nequery = ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & fich, Destination:=Range("A1"))
 
    With nequery
        .Name = "Nom"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(C(1), C(2), C(3), C(4), C(5), C(6), C(7), C(8), C(9), _
           C(10), C(11), C(12), C(13), C(14), C(15), C(16), C(17), C(18), C(19), _
           C(20), C(21), C(22), C(23), C(24), C(25), C(26), C(27), C(28), C(29), _
           C(30), C(31), C(32), C(33), C(34), C(35), C(36), C(37), C(38), C(39), _
           C(40), C(41), C(42), C(43), C(44), C(45), C(46), C(47), C(48), C(49), _
           C(50), C(51), C(52), C(53), C(54), C(55), C(56), C(57), C(58), C(59), _
           C(60), C(61), C(62), C(63), C(64), C(65), C(66), C(67), C(68), C(69), _
           C(70), C(71), C(72), C(73), C(74), C(75), C(76), C(77), C(78), C(79), _
           C(80))
        .Refresh BackgroundQuery:=False
       End With
       nequery.Delete

C(i) correspond à une colonne i.

Ce code me créé bel est bien ma feuille excel mais sans filtrer les données, par exemple, comment pourrais je lui dire, si le troisième paramètre (celui qui va apparaitre dans C(3)) est égal à "non", tu ne m'importes pas la ligne?

Merci pour vos réponses,

[ouskel'n'or]

J'effectuerais la suppression des lignes une fois ton fichier ouvert sous Excel, la recherche avec find et la suppression des lignes ne pose pas de problème et éviterait le test pour chaque colonne.
Précise si tu as une ou plusieurs conditions à gérer.
A+