Discussion :

[isamur]

Bonjour,

Je cherche à copier dans des fichiers txt des valeurs (de type texte) contenues dans un tableau Excel (plusieurs milliers de lignes, 1 colonne). J'ai d'abord commencé par copier 1000 lignes à la fois dans un fichier. Problème: je n'ai eu que 990 lignes à peu près, cela coupe en plein milieu d'un mot, peu avant la fin.
J'ai pensé que le volume était trop important, j'ai essayé avec 500 lignes, puis moins. Même avec 50 lignes, ça coupe à la ligne 44 !

D'où cela peut-il venir ?

Voici un extrait du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test_découpage()
 
Open "C:\Users\Utilisateur\Desktop\fichier1.txt" For Output As #1
 
For i = 1 To 50
Print #1, Worksheets("découpage").Cells(i, 1).Value + ";"
Next i

Merci d'avance de vos lumières !

[ARTURO83]

Bonjour,

En mettant une valeur max très supérieure au nombre de lignes réel, ça passe.
j'ai fait des tests avec + de 15000 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 1 To 16000
        If Worksheets("découpage").Cells(i, 1) <> "" Then Print #1, Worksheets("découpage").Cells(i, 1).Value + ";"
    Next i

Cdlt

[isamur]

Merci de votre réponse.

J'ai fait plusieurs tests. Oui, ça passe, si on demande par exemple 1500 lignes, on en obtient au moins 1000. Mais sur tous les tests, il y a eu un cas où il y avait un grand blanc dans le fichier texte. Il manquait beaucoup de données. Donc apparemment ce n'est pas fiable à 100%. A utiliser peut-être en faisant un contrôle du nombre de caractères avant/après.

Mais votre code m'a donné une idée: et si c'était les lignes vides qui causaient ce problème ? J'en ai à plusieurs endroits dans le tableau. Je les ai supprimées, mais j'ai toujours le même problème.

J'aimerais quand même bien comprendre: pourquoi si je demande seulement dix lignes, il n'y en a aucune qui est copiée dans le fichier texte? J'ai fait un débogage pas à pas, avec des "espions". Toutes les valeurs des cellules sont lues correctement, mais elles ne sont pas copiées dans le fichier texte. Il est créé, mais il est vide...

Est-ce que quelqu'un a déjà eu le même problème ? Une explication possible ?

[isamur]

J'ai trouvé la solution grâce à cet article : https://www.mediaforma.com/vba-excel...fichier-texte/

J'ai copié telle quelle la macro qui était donnée. Elle marchait chez moi. J'ai alors adapté mon code en rajoutant ce qui manquait, et ça marche parfaitement!

Voici la version finale, au cas où quelqu'un aurait le même problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test_découpage()
 
Dim f As Integer
f = FreeFile
 
Open "C:\Users\Utilisateur\Desktop\fichier1.txt" For Output As #f
For i = 1 To 1000
Print #f, Worksheets("découpage").Cells(i, 1)
Next i
Close #f