Création d'un fichier txt à partir d'un tableau

Bonjour,

Je souhaite créer à partir d'un tableau de 2588 lignes un fichier au format txt, or lorsque je lance ce programme DL est bien égal à 2588 en contre partie le fichier texte s'arrête aux données de la ligne 2579 et il ne va même pas au bout des données de la ligne 2579 il s'arrête à la 4ème virgule.

Sauriez vous m'éclairer je n'ai jamais trouvé une limitation du nombre de caractère en fichier txt.

Private Sub CommandButton2_Click()

Dim cell As Variant
Dim lign As Integer
Dim DL As Long
Dim LgLargMax As Long
Dim VCoef As Variant
Dim Dre As Long

DL = Range("Tableau2").Rows.Count

Dre = DL

UserForm_Traitementencours.Image_barre.Width = 0
UserForm_Traitementencours.Show 0
UserForm_Traitementencours.Repaint

LgLargMax = 324  
VCoef = LgLargMax / Dre 

Open "T:\Bibliothèque\tututu.txt" For Output As #1

For lign = 1 To DL

'For Each cell In Sheets("Feuil1").ListObjects("Tableau2").ListColumns("REF").DataBodyRange

    If UserForm_Traitementencours.Image_barre.Width < LgLargMax Then

        UserForm_Traitementencours.Image_barre.Width = (UserForm_Traitementencours.Image_barre.Width + (1 * VCoef))
        UserForm_Traitementencours.Repaint

    End If

    Print #1, Range("Tableau2[REFERENCE]")(lign).Value & "," & Range("Tableau2[NOM]")(lign).Value & "," & Range("Tableau2[TATA]")(lign).Value & "," & Range("Tableau2[TOTO]")(lign).Value & "," & Range("Tableau2[TITI]")(lign).Value & "," & Range("Tableau2[TUTU]")(lign).Value

    'lign = lign + 1

Next

lign = 1
UserForm_Traitementencours.Hide

MsgBox "Procédure terminée."

End Sub

Merci de votre aide

Bonjour,

Ce sera plus facile pour tester....

A+

Bonjour effectivement je pensais que le code suffirait mais voici.

Le fichier Excel et ce que ça donne en fichier txt, on s'arrête avant la fin ..

le fichier texte n'est pas fermé proprement et la fin est tronquée.

Rajouter après la boucle

Close #1

par ailleurs, en fin de code, le userform est simplement "masqué". Il vaut mieux le "déloader" (le quitter)

Unload UserForm_Traitementencours

La barre d'avancement ralentit beaucoup la création du fichier texte

Merci ça fonctionne, j'avais essayé SAVE mais ça ne fonctionnait pas.

Pour ce qui est du temps d'exécution en chronométrant je suis à deux secondes et demi donc ça me convient pour le timing