Bonjour,

J'ai le code suivant pour ouvrir plusieurs fichiers texte dans des classeurs différents :

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
'
'   Ouverture des fichiers *.txt
'
'
 
    On Error GoTo GestionErreur
 
    Dim Fichier()
    Fichier = Application.GetOpenFilename("Fichiers textes (*.txt), *.txt,  Tous Fichiers (*.*), *.*", , "Sélectionnez votre source de données", , True)
 
    For ctr = 1 To UBound(Fichier)
        If VarType(Fichier) = vbBoolean Then
            Exit Sub
        Else
        Workbooks.OpenText Filename:=Fichier(ctr) _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True
 
        End If
 
    Next
 
GestionErreur:
    Exit Sub
 
End Sub
Ces fichiers sont très gros (>190000 lignes) et seule une zone de environ 500 lignes m'intéresse. Je voudrais donc importer uniquement cette zone.

Question :

Est-il possible de déterminer des bornes (StartRow = n° de la ligne correspondant au début de la zone ; "EndRow" = n° de la ligne en fin de zone) pour n'ouvrir que cette partie du fichier texte ?

Merci d'avance pour votre aide

Amanck