Transformation Excel en Txt

M

Minick

XLDnaute Impliqué

• 30 Mars 2011

• #2

Re : Transformation Excel en Txt

Salut,

Le cadrage se fait a droite ou a gauche ou les 2 selon la colonne.
Par exemple colonne B:
0005 devient ......0005 ou 0005...... (les points seraient de "blancs" biensur)

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #3

Re : Transformation Excel en Txt

voila le fichier d'arrivée en txt :

060005 0PRIN CLARY FREDERIC 1 0,000 30,000 0,000 30,000 0,000 0 10,000


Merci minick de ta rapidité

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #4

Re : Transformation Excel en Txt

Voila le fichier joint
merci

 

Pièces jointes

• test2.xls

  39.5 KB · Affichages: 49
• test2.xls

  39.5 KB · Affichages: 48
• test2.xls

  39.5 KB · Affichages: 43

Dernière modification par un modérateur: 30 Mars 2011

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Mars 2011

• #5

Re : Transformation Excel en Txt

Bonjour Chris, Bonjour Minick,

Ah ben voilà, ça va être pratique pour compter les espaces et répondre à ta question 😀
C'est la première fois qu'on me propose de compter des espaces sur une copie d'écran du bloc-notes 🙂

Bon on va dire les espaces après, on dirait...

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #6

Re : Transformation Excel en Txt

tototiti2008 à dit:

Bonjour Chris, Bonjour Minick,

Ah ben voilà, ça va être pratique pour compter les espaces et répondre à ta question 😀
C'est la première fois qu'on me propose de compter des espaces sur une copie d'écran du bloc-notes 🙂

Bon on va dire les espaces après, on dirait...

Cliquez pour agrandir...

J'ai mis dans le 1er fichier excel le nombre d'espace entre chaque donnée

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 30 Mars 2011

• #7

Re : Transformation Excel en Txt

Bonjour Chris06nice , Re Tototiti, Bonjour à tous.
Comme je ne l'avais jamais fait, j'ai essayé... (Merci Xld comme d'hab).
Une version qui sera certainement amandée par la suite, par plus habitué que moi 😱

VB:

Sub Fichier_Texte()
Dim Txt$, Liste(), i&, j&, Lng&, Var&
Liste = Array(0, 2, 10, 1, 30, 20, 5, 12, 12, 12, 12, 12, 2, 13)
Open "D:\temp\Résultat recherche.txt" For Output As #1
With ThisWorkbook
    With .Sheets("TEST44")
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            For j = 1 To 13
                Lng = Len(.Cells(i, j)): Var = Liste(j) - Lng
                Txt = Txt & Application.WorksheetFunction.Rept(" ", Var) & .Cells(i, j)
            Next j
            Print #1, Txt
            Txt = ""
        Next i
    End With
End With
Close #1
End Sub

Cordialement

Edit: J'ai oublié de préciser qu'il faut un dossier D:\temp et que le fichier "Résultat recherche.txt" sera créer automatiquement
Edit2 Problème de balises....

 

Dernière édition: 30 Mars 2011

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #8

Re : Transformation Excel en Txt

Euuhhh...
Merci a toi Efgé mais..... suis novice !!
peux tu m'aider sur ton code
je dois le mettre ou ?
Merciiiiiiiii

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 30 Mars 2011

• #9

Re : Transformation Excel en Txt

Re
Voici un exemple.
Pour voir le code Alt + F11. Les lignes sont dans le module1.
Tu colle toutes tes données sur la feuille TEST4 et tu clique sur le bouton traitement.
En cherchant un peu sur le forum, tu trouveras des explications.
Je ne serais certainement pas là cet après midi.

Bon courage
Cordialement

 

Pièces jointes

• Chris06nice(2).xls

  27.5 KB · Affichages: 57

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Mars 2011

• #10

Re : Transformation Excel en Txt

Bonjour,
Et SAGE qui exporte en csv avec séparateur ne sait pas l'importer... !?🙄
A+
kjin

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #11

Re : Transformation Excel en Txt

Si si il sait l'importer mais dans une forme bien précise
c'est là ou je me heurte à un mur
Car il y a des données à cadrer à gauche , d'autres à droite !!

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #12

Re : Transformation Excel en Txt

Efgé à dit:

Re
Voici un exemple.
Pour voir le code Alt + F11. Les lignes sont dans le module1.
Tu colle toutes tes données sur la feuille TEST4 et tu clique sur le bouton traitement.
En cherchant un peu sur le forum, tu trouveras des explications.
Je ne serais certainement pas là cet après midi.

Bon courage
Cordialement

Cliquez pour agrandir...

C'est un tres bon début, mais les données ne sont pas cadrées, ni transformées comme dans le modele d'arrivée

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 30 Mars 2011

• #13

Re : Transformation Excel en Txt

Re à tous, Bonjour Kjin,
Autant pour moi, je n'avais pas pris en compte les alignements "aléatoires"...
Je suivrai le fil, de loin, pour connaitre la bonne manière de faire 😉.
Cordialement

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Mars 2011

• #14

Re : Transformation Excel en Txt

Bonjour à tous,
Re,

Car il y a des données à cadrer à gauche , d'autres à droite !!

Cliquez pour agrandir...

Dans le fichier de départ, peux-tu déterminer quelle colonne est à mettre à gauche et quelle colonne à droite ?
Malheureusement la copie d'écran du bloc-notes ne nous permet pas facilement de déterminer ce paramètre... puisqu'il faudrait que l'on compte le nombre d'espace entre chaque donnée du fichier texte résultant pour le savoir

 

Vote positif 0 Vote négatif

C

Chris06nice

Guest

• 30 Mars 2011

• #15

Re : Transformation Excel en Txt

En fait tout est a gauche mais chaque cellule doit obligatoirement compter le nombre de caractere comme noté en vert dans le fichier ci-joint
MEME si le contenu est moins important
Exemple : le nom doit faire 30 caracteres, meme si le contenu est dupont
le prénom doit commencer 31 caractere apres le Nom

 

Pièces jointes

• TEST.xls

  13.5 KB · Affichages: 47
• TEST.xls

  13.5 KB · Affichages: 51
• TEST.xls

  13.5 KB · Affichages: 53

Vote positif 0 Vote négatif