repeter une tabulation

[f69815]

bonjour toutes et tous,
pour écrire dans un fichier texte j'utilise la ligne suivante
Print #1, Range('A' & fbi) & vbTab & Range('B' & fbi) & vbTab & Range('C' & fbi) & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & Range('J' & fbi).

par contre mon fichier comporte 79 colonnes qui ne sont pas toutes remplies.

les données sont dans la col A, B, C, J, CA et CH pour un fichier.
A, B, C, D, AA, AB, AK, AL, AT, BC, BD, BK, BN, BZ et CI pour un deuxième fichier.
comment faire pour limiter le nombre de vbTab à écrire, deja que entre c et j il en faut 6. il me faut impérativement 79 et 80 colonnes.

j'ai pensé, ça m'arrive, à utiliser REPT, mais avec print il y a problème.

merci

 

[Hervé]

bonjour f69815

peut etre en parssant par une boucle :

For i = 1 To 10
        If Not Cells(fbi, i) = '' Then
                t = t & Cells(fbi, i) & vbTab
        Else
                t = t & vbTab
        End If
Next i
Print #1, t

salut

 

[f69815]

bonjour et merci herve,

l'approche est très bonne, mais 2 soucis avec le fichier texte créé :

1) j'ai toujours une tabulation supplémentaire, et il me faut obligatoirement 79 ou 80 colonnes.

2) j'ai l'impression qu'il y a création de 3 lignes entre chaque ligne de données. Alors que lors que je fais un coipier/coller de excel->notepad les données sont bien sur la même ligne.
ex:
A0167758 19/04/2006 FBI.......



A0167779 19/04/2006 FBI......



A0167783 19/04/2006 FBI.......

alors que d'habitude j'ai :
A0167758 19/04/2006 FBI.......
A0167779 19/04/2006 FBI.......
A0167783 19/04/2006 FBI.......

fichier joint, très léger, pour essais.

merci.

 

[f69815]

j'ai oublié le fichier

 

[f69815]

mais où est le fichier [file name=export_20060617084959.zip size=8289]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/export_20060617084959.zip[/file]

 

[f69815]

bonjour hervé,
j'ai trouvé une solution.

en analysant mon fichier txt dans word je me suis aperçu qu'il y avait beaucoup 'd'espace' dans mes colonnes, aussi j'ai ajouté à la ligne Trim :t = t & Trim(Cells(fbi, i)) & vbTab.

et tout va bien.

post clos.

merci pour to aide