Discussion :

[willis]

Bonjour, je souhaiterais savoir si à partir de cette macro bien connue d'import d'un fichier texte/CSV, elle peut être améliorée pour importer une plage de lignes.
Par exemple, pour un fichier de 45000 lignes, importer les lignes allant de 10 000 à 30 000.
Je suis parvenu à améliorer une macro pour importer de 1 à 15000 ou de 30 000 à 45 000 mais impossible de trouver la solution pour borner l'import avec des numéros de lignes choisis.
En vous remerciant pour votre aide

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
Option Explicit
Public Sub importFichT2()
 
Const FichT = "Tagada.txt"
Const Separateurs As String = ";"
Const Feuil_name = "Feuil5"
Dim sh As Worksheet
Dim hnd As String
Dim varStrg As Variant
Dim NomFichT As String
Dim inumlignes As Integer
Dim i As Integer
 
NomFichT = ThisWorkbook.Path & "\" & FichT
Set sh = Worksheets(Feuil_name)
hnd = FreeFile
inumlignes = 1
 
Open NomFichT For Input As #hnd
Do While Not EOF(hnd)
 
Line Input #hnd, varStrg
Debug.Print varStrg
 
varStrg = Split(varStrg, Separateurs)
For i = 0 To UBound(varStrg)
sh.Cells(inumlignes, i + 1) = varStrg(i)
Next i
inumlignes = inumlignes + 1
Loop
 
Close #hnd
End Sub

[78chris]

Bonjour

Faisable via une requête PowerQuery lier le fichier, l'indexer et filtrer l'index

Tu peux éventuellement supprimer la requête après import dans un onglet.

[willis]

Bonjour,
merci beaucoup pour la réponse. En fait, j'aurais dû mieux chiffrer mon exemple. Dans le cas où le CSV dépasse le nombre de lignes d'une feuille EXcel, ça coince avec PowerQuery.
C'est la raison pour laquelle je souhaiterais pouvoir en amont dans VBA, extraire la fraction de lignes qui m’intéresse pour pouvoir tenir sur feuille;
Exemple : 1 500 000 lignes. Par exemple Extraire lignes de 1 à 499 000, puis de 500 000 à 999 000 et enfin de 1 000 000 à end of file.
Pensez-vous que ce soit faisable ?
Merci pour les conseils.

[Thumb down]

Bonjour,
Quelle drôle d'idée de penser que Powerquery ne sait pas gérer ça !

[willis]

Très bien, je vais creuser PowerQuery en espérant que ça marche !