Problème pour récupérer la 65537° ligne d'un fichier csv

Résolu
Stcoeur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Stcoeur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 273
 
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
Réponse 2 / 3
Stcoeur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Ok merci beaucoup, je teste tout de suite
0
Réponse 3 / 3
Stcoeur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 273
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 273
 
Si tu peux mettre en résolu...
eric
0
Stcoeur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
voilà désolé pour l'attente et encore merci Eric
0

Discussions similaires

Colis shein terminal fret
Lele -
bazfile -

1 réponse