Problème de tabulation dans un fichier .txt

[Lone-wolf]

Bonjour le Foum,

après avoir testé 6 macro différentes, pour écrire dans un fichier texte, je n'ai pas réussi à trouver la solution pour éviter le décalages des colonnes. Dans la PJ, il y a deux macros; une de Jacques Boisgontier, l'autre de John Walkenbach que j'ai essaié de modifier et les deux fichiers texte pour que vous voyez les résultats (Main.txt de John, Main2.txt de Jacques). Merci pour votre aide.




A+ 😎

 

[BOISGONTIER]

Re : Problème de tabulation dans un fichier .txt

Bonsoir,

Sub ExportTxtChamp() 
  repertoire = ThisWorkbook.Path
  Open repertoire & "\essai.txt" For Output As #1
  Set champ = [B1].CurrentRegion
  Dim lg(): ReDim lg(1 To champ.Columns.Count)
  For i = 1 To champ.Columns.Count
    lg(i) = champ.Cells(1, i).Width / 5
  Next i
  For lig = 1 To champ.Rows.Count
    ligne = ""
    For col = 1 To champ.Columns.Count
      ligne = ligne & champ.Cells(lig, col).Text & String(lg(col) - Len(champ.Cells(lig, col).Text), " ") & " "
    Next col
    Print #1, Left(ligne, Len(ligne) - 1)
  Next lig
  Close #1
End Sub

JB

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Bonsoir Jacques,

je viens de regarder le fichier texte, et toujours la même problèmatique.

En image

​

Je pense que c'est dû aux longueurs des textes ( il y en a qui font 16 cm et d'autres 2.5).


1ère colonne du class. 2ème
;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;

;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;

Comme il y a cette différence, les colonnes vont occupés l'espace vide sans tenir compte de la tabulation.

sur la ligne de l'ancien code qui correspond à celle-ci ( ligne & champ.Cells(lig, col).Text ), j'ai même essaié avec ( & vbTab ), mais rien à changer.



A+ 😎

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Re Jacques,

avec l'ancien code et des colonne uniformes,

​

A+ 😎

 

[BOISGONTIER]

Re : Problème de tabulation dans un fichier .txt

Dans la PJ, il y a la copie d'écran

JB

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Bonjour Jacques,

j'ai l'erreur :Argument ou appel de la procédure incorrect sur cette ligne

ligne = ligne & champ.Cells(lig, col).Text & String(lg(col) - Len(champ.Cells(lig, col).Text), " ") & " "

Je crois que ça viens de String(***)




A+ 😎

 

[Staple1600]

Re : Problème de tabulation dans un fichier .txt

Bonjour à tous

message édité:
Mauvaise lecture de ma part (désolé)

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Bonjour Staple 🙂

 

[BOISGONTIER]

Re : Problème de tabulation dans un fichier .txt

Elargir la colonne dans le fichier Excel

http://boisgontierjacques.free.fr/fichiers/Fichier/EcritFS.xls

JB

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Re Jacques,

Elargir la colonne dans le fichier Excel

De qu'elle colonne parle-tu? Je ne comprend pas.


A+ 😎

 

[BOISGONTIER]

Re : Problème de tabulation dans un fichier .txt

La largeur des colonnes du fichier texte est basée sur la largeur des colonnes du fichier excel.
Si une colonne n'est pas assez large, le programme s'arrête et indique le no de la colonne.


JB

 

[Lone-wolf]

Re : Problème de tabulation dans un fichier .txt

Rien à faire, toujours des décalages.

Dis-moi, est-ce la résolution d'écrans y serait pour quelque chose?


A+ 😎