[XL-2007] problème de codage d'une boucle VBA

[skipeemed]

Bonjour,

Je veux boucler ce code VBA :

Code :

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
Range("a65536").Select
    dernière_ligne = Selection.End(xlUp).Row
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Bureau\les rapports\export\Fich1.csv" _
        , Destination:=Range("$A$" & dernière_ligne + 1))
        .Name = "Fich1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("A" & dernière_ligne + 1).Select
    Selection.EntireRow.Delete

En résumé je veux prendre des fichiers CSV contenu dans un même chemin, les convertir et les concaténer dans un même fichier Excel. Tout en supprimant les entêtes de ces fichiers sauf le premier.

Voilà,
Cdt,
SKIP

[Pierre Fauconnier]

Salut.

En gros, voilà la boucle

Code :

1
2
3
4
5
6
7
8
dim Fichier as string
 
fichier =dir("c:\monchemin\*.csv")
do while fichier <>""
    ...
    ...
    fichier = dir()
loop

[AlainTech]

Bonjour,

Depuis le temps que tu es sur le forum, on a bien dû te dire quelques fois d'éviter d'utiliser Select et Selection.

Voici à quoi pourrait ressembler un code plus "propre":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  Dim wbkDest As Workbook
  Dim wksDest As Worksheet
  Dim c As Range
 
  Set wbkDest = Workbooks("LeNomDuClasseurATraiter")
  Set wksDest = wbkDest.Sheets("LeNomDeLOngletATraiter")
  ' Si le classeur à taiter est celui où se trouve la macro tu peux
  ' te passer du  Dim wbkDest et son Set et écrire
  ' Set wksDest = ThisWorkbook.Sheets("LeNomDeLOngletATraiter")
  Set c = wksDest.Cells(wksDest.Rows.Count, 1).End(xlUp).Offset(1, 0)
  With wksDest.QueryTables.Add(Connection:= _
      "TEXT;C:\Documents and Settings\Bureau\les rapports\export\Fich1.csv" _
      , Destination:=c.Address)
    .Name = "Fich1"
    ' le reste du code contenu dans le With
  End With
  c.EntireRow.Delete