Problème pour récupérer la 65537° ligne d'un fichier csv [Résolu/Fermé]

Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
- - Dernière réponse : Stcoeur
Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
- 13 juin 2013 à 11:18
Bonjour,

Je travaille actuellement sur excel et des fichiers CSV ayant un volume important. Pour finaliser mon travail, je dois pouvoir récupérer 65536 lignes du fichier CSV à partir de n'importe quelle ligne.

Cependant, lorsque sous Excel je fais l'importation de données et que je sélectionne, par exemple la 60000° ligne, pour commencer mon importation, le fichier excel ne contiendra au final que 5536 lignes. De plus, si je demande de commencer l'importation à la 1000000° ligne par exemple, une erreur empêche l'importation.

En gros, le fichier CSV est traité par excel comme un fichier contenant le maximum de lignes autorisé par Excel 2003, et je me vois incapable d'atteindre les lignes après la 65536° lignes lors de l'importation de données.

Y'a-t-il donc moyen de remédier à ce problème?

Merci d'avance pour vos réponses.

Cordialement

Romain
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
23111
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 décembre 2019
5787
1
Merci
Bonjour,

à tester :
Sub importCSV()
    Const nblig As Long = 3
    Dim lig1 As Long, chemin As String, fichier As String, numfich As Long
    Dim lig As Long, i As Long, j As Long, tmp As String
    Dim datas()
    chemin = "d:\tmp\"
    fichier = "datas.csv"
    lig1 = Application.InputBox("1ère ligne à importer ?", , 1, , , , , 1)
    numfich = FreeFile
    Open chemin & fichier For Input Lock Read Write As #numfich
    ' lecture lignes à passer
    Do While Not EOF(numfich) And i < lig1 - 1
        i = i + 1
        Input #numfich, tmp
    Loop
    i = 0
    ' lecture lignes à importer
    While Not EOF(numfich) And i < nblig
        i = i + 1
        ReDim Preserve datas(1 To i)
        Input #numfich, tmp
        datas(i) = tmp
    Wend
    Close #numfich
    [A:A].ClearContents
    [A1].Resize(i) = datas
End Sub 

Changer la constante du début, actuellement 3 lignes d'importées.
Ainsi que chemin et nom du fichier (si il varie beaucoup on pourra ajouter une boite de sélection)
Tenir compte des lignes de titres pour les lignes à passer.
Ne connaissant pas tes datas tout est importé en colonne A, il te reste à faire 'Convertir...' pour les répartir.
http://cjoint.com/?CFkm7hTec6e
eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62844 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
0
Merci
Ok merci beaucoup, je teste tout de suite
Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
0
Merci
Hmm, j'ai testé et en fait il semblerait que

1. il n'y ai pas de changement lorsque la cellule est recopiée. En gros lorsque l'on recopie dans la colonne A, c'est toujours la même valeur qui ressort.

2. Ensuite quand je sélectionne une valeur dans la message box, ça ne me recopie pas les valeurs à partir de la k° ligne, mais de la k° colonne.

Je n'arrive pas à régler ces problèmes dans ton code
eriiic
Messages postés
23111
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 décembre 2019
5787 -
Un petit oubli, j'aurais dû regarder de plus près le résultat.
Remplace la dernière ligne par :
[A1].Resize(i) = Application.Transpose(datas)
et regarde si c'est mieux.
eric
eriiic
Messages postés
23111
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 décembre 2019
5787 -
Si tu peux mettre en résolu...
eric
Stcoeur
Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
-
voilà désolé pour l'attente et encore merci Eric