Re: Export TXT avec ";" en séparateur, méthode par Array (Super Fast)
Re Bonsoir Manuel
Je ne parlais pas du Fil de Discussion d'Hier pour SAP, je pensais à celui-ci :
=>
Lien supprimé
Bien que le sujet ne soit pas rééllement correspondant à ta demande, une partie du code que j'ai fourni dans mon post du 24-07-04 14:53 répond à ta demande
"d'autre part, l'enregistreur refuse de saisir code pour le changement de nom en txt. ( pas sympa )
Je pense que tu y trouveras un élément de réponse.
Pour la longueur du traitement, tout dépend de la machine...
Cependant comme pour la chanson de Noir Désir "Un Homme Pressé" on pourrait accélérer considérablement en faisant comme ceci (hi hi hi hi)
Sub SuperFaaaaaaaastBuildTXT()
Dim Plage As Variant
Dim TheText As String, ThePath As String
Dim TheFile As Variant
Dim L As Integer
Dim C As Byte, X As Byte
Dim TheTime As Double
ThePath = ThisWorkbook.Path & "\ReportDataTXT"
TheFile = Application.GetSaveAsFilename(ThePath, "Fichier,*.txt")
If TheFile = False Then Exit Sub
TheTime = Timer
Plage = TXT.Range("A2
" & TXT.Range("A65536").End(xlUp).Row)
Open TheFile For Output As #1
For L = 1 To UBound(Plage)
TheText = ""
For C = 1 To 4
If C < 4 Then
TheText = TheText & CStr(Plage(L, C)) & Chr(59)
Else
TheText = TheText & CStr(Plage(L, C))
End If
Next C
Print #1, TheText
Next
Close #1
MsgBox "DUREE EN SECONDE : " & Timer - TheTime
End Sub
Sur un PIV de moins de 2GHZ / 256 RAM, je viens de faire tourner sur 4 colonnes et 10000 lignes aux environs de 1/4 ou 1/3 de seconde....
Comme ça je pense que tu seras content car tu auras le temps d'occuper ton ordinateur à d'autres occupations
Bonne Soirée
@+Thierry