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

Signaler
Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
-
Messages postés
4
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
13 juin 2013
-
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

3 réponses

Messages postés
23640
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2020
6 467
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.
https://www.cjoint.com/?CFkm7hTec6e
eric

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

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

CCM 76687 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

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

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
Messages postés
23640
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2020
6 467
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
Messages postés
23640
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
16 novembre 2020
6 467
Si tu peux mettre en résolu...
eric
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