Macro : .xls to .txt sans espace ni tabulation

Bonjour,

Je dispose d'une feuille Excel composée de nombreuses lignes et colonnes.
J'aimerai exporter cette feuille vers un fichier texte .txt tout simple où l'ensemble de ces données ne serait séparé par aucun espace ni tabulation.

En effet, on peut enregistrer une feuille Excel au format txt directement à partir d'Excel, mais cela génère des tabulations entre les colonnes.

Merci d'avance

Tu peux utiliser open qui te permet d'exporter au format que tu désire mais en construisant toi même la structure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

sub exportefichier()   Dim i As Integer 'lignes Dim j As Integer 'colonnes Dim strLigne As String   Open "c:\fichier.txt" For Output As #1     For i = 1 To 11   strLigne = ""   For j = 1 To 3   strLigne = strLigne & Cells(i, j).Value     Next j   Print #1, strLigne   Next i   Close #1   end sub

---

par contre, juste par curiosité, a quoi peut bien servir un fichier si toutes les données sont concatenées les unes aux autres?

Pardon, je ne t'avais pas répondu.

Le fais que les données soient concaténées me sert pour la création d'une trame pour un petit protocole d'échange de donnée.
Le fait de remplir cela sous Excel me permet de le faire proprement en imposant des contraintes.
Ensuite, je peux transcoder cela au format ".txt".

Maintenant que je viens de terminer cette macro qui s'adapte à mon tableau en effectuant au préalable une vérification de mes champs avant la conversion, je vais créer une macro inverse.


Merci de ton aide en tous cas.
Bon courage à tous.

Bonjour,

Je suis plutôt d' accord avec jfontaine, car je saisis pas bien comment tu vas t'y retrouver à l'arrivée, si tu concatènes tout;....à moins de typer fortement tes champs(Colonnes aparamment)

Bon courage

A+

C'est exactement cela, je type mes champs et je peux donc contrôler le type de donnée et la taille de celle-ci.
En fait, j'ai une cellule au dessus qui me permet d'être une consigne à l'aide d'un caractère "/" après cela je peux indiquer la taille et le type.

Consigne : /06N/ Titre
Cellule : 15641

La cellule contient 5 caractère numérique, je complète donc automatiquement à gauche par un zéro pour arriver à ma consigne.
Si il y avait eu une erreur, on peut le signaler à l'utilisateur.
C'est le principe.
La macro est développée, si vous voulez voir, envoyez un mp.

Je rappelle que l'usage est dans un protocole de transmission de données.

A+

Ouais,

En fait, tu fait du TLV (Mot Consacré en Télécoms-je connais,j'ai baigné là-dedans)

C'est à dire TypeLongueurValeur

Alors, où est le problème ?

A+